ответ: var
a, b: integer;
procedure h(x: integer; var y: integer);
begin
x := x + 1;
y := y + 1;
writeln(x, y)
end;
a := 0;
b := 0;
h(a, b);
writeln(a, b);
readln
end.
ответ: var
a, b: integer;
procedure h(x: integer; var y: integer);
begin
x := x + 1;
y := y + 1;
writeln(x, y)
end;
begin
a := 0;
b := 0;
h(a, b);
writeln(a, b);
readln
end.