Program P112;
 { Efecte colaterale }
var a, b : integer;

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

function G(x : integer) : integer;
begin
 G:=b+x;
 a:=a+1;
end; { G }

begin
 a:=1; b:=1;
 writeln(F(1));
 writeln(G(1));
 writeln(F(1));
 writeln(G(1));
 readln;
end.