Program P113;
 { Efecte colaterale }
var a : integer;
    b : real;

function F(var x : integer) : integer;
begin
 F:=x;
 x:=x+1;
end; { F }

procedure P(x, y : integer; var z : real);
begin
 z:=x/y;
end; { P }

begin
 a:=1;
 P(F(a), a, b);
 writeln(a, '   ', b);
 readln;
end.