Program P111;
 { Efect colateral - atribuire la un parametru formal }
var a : integer;

function F(var x : integer) : integer;
begin
 F:=2*x;
 x:=x+1;    { atribuire defectuoasă }
end; { F }

begin
 a:=2;
 writeln(F(a));     { se afişează 4 }
 writeln(F(a));     { se afişează 6 }
 writeln(F(a));     { se afişează 8 }
 readln;
end.