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.