program P3(output);
var Z: integer;
procedure T(procedure U);
begin
Z := Z - 2;
U
end;
procedure Q(
procedure R(procedure S);
var X: integer);
var Y: integer;
procedure V;
begin
X := X + 1
end;
begin
Y := 2;
X := Z - Y;
R(V)
end;
begin
Z := 6;
Q(T, Z);
writeln(Z)
end.
|
|