Ответ на скрине после покупки
Что будет напечатано программой?
var a, b, c, d: integer;
procedure P;
var d: integer;
begin
a:=1; b:=2; c:=3; d:=4;
write(a, b, c, d)
end;
a:=1; b:=1; c:=1; d:=1;
P; write(a, b, c, d)
end.