7.0



8.2. - 3


. - VAR. . - , .. . , . - .

, - -.

1.

Program P1;

Var

x: integer;

Procedure Z (y: integer);

begin

y := 1;

end;

Begin

x := 0;

Z(x); { }

writeln(x=, x);

End.

Z y -, 堠 (y := 1;) x. : x = 0.

2.

Program P2;

Var

x: integer;

Procedure Z (var y: integer);

begin

y := 1;

end;

Begin

x := 0;

Z(x);

writeln (x=, x);

End.

Z y -, x. : x = 1.