Question

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

Answer 1

Ответ:

var y, x, s, n: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.