program p;
var a,b,c:integer;
procedure d(var e:integer;f:integer);
var a,g:integer;
begin
h;
n(a,g);
end
procedure h;
var b,i:integer;
begin
end
procedure n(var z:integer;var v:integer);
begin
end
begin
d(b,a);
d(a,b);
end.
Для программы n у нас получается видны (z,v,e,f,a,g,a,b,c)?