Program P110;
 { Efect colateral - atribuire la o variabilň globală }
var a : integer; { variabilă globală }

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

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