2000/01 – Fase scolastica – 09

Procedure h;
Var
   x, y, z: Integer;

Function f(Var x: Integer; y: Integer): Integer;
Var
   z: Integer;

Function g(x: Integer): Integer;
Begin
   g:=x+y+z
End;

Begin
   z:=x;
   x:=g(y);
   f:=x+y
End;

Begin
   x:=1;
   y:=2;
   z:=3;
   z:=z+f(y, x)
End;