Subprograme 1 | Page 6

Exemplu:
Program P108;
{Comunicarea prin variabile globale }
var a, {variabilă globală în P }
b : real; {variabilă globală în P, F }
procedure P;
var c : integer; {variabilă locală în P }
begin
c:=2;
b:=a*c;
end; { P }
function F : real;
var a : 1..5; {variabilă locală în F }
begin
a:=3;
F:=a+b;
end; { F }
begin
a:=1;
P;
writeln(b); {se afişează 2.0000000000E+00 }
writeln(F); {se afişează 5.0000000000E+00 }
readln;
end.