псевдо паскаль

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
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)?