Procedure f(a: integer); begin
a := 2° (a + 1);
end;
begin
t := 2020;
f(t + 1);
write(t);
end.

Eugene1223    1   01.02.2021 19:26    1