Enumerati variabilele globale si locale din program

Program P13;
var a:integer;

procedure S2 (var b:integer);
var c:real;
begin
c:=3+dar(b);
writeln ('c=',c);
end;
procedure B21(b:char);
var d:integer;
function F12 (y:real):integer;
var n:integer;
begin
n:=trunc(y)+d;
F12:=n;
writeln ('primim n=',n);
end;
begin
d:=ord(b)+F12(a);
writeln ('d=',d);
end;
begin
writeln ( S2(7));
writeln ( B21('Z'));
end.