Program p1; var y,x:integer;
begin
writeln ('введите 2 числа');
readln (x,y);
writeln ('x+y=z''x-y=a');
s:=x+y;
n:=x-y;
writeln ('Сумма=',s);
writeln ('Разность=',n);
end.

там где s:=x+y неизвестное имя s

vvasea66    3   17.09.2021 01:02    0