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.
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.