Запишите программу, которая будет предлагать пользователю ввести любые два числа, складывать их и выводить на экран ответ в следующем виде: вы ввели: x,y x+y= программа !

summa1 - только для целых

summa2 - для любых

Объяснение:

program summa1;

var

 x,y,s:integer;

begin

write ('Введите х ');

readln(x);

write ('Введите y ');

readln(y);

writeln ('Вы ввели: x=',x,' ,y=',y);

 s:=x+y;

 write ('x+y=',s);

 readln;

end.

program summa2;

var

 x,y,s:real;

begin

write ('Введите х ');

readln(x);

write ('Введите y ');

readln(y);

writeln ('Вы ввели: x=',x:5:2,' ,y=',y:5:2);

 s:=x+y;

 write ('x+y=',s:10:2);

 readln;

end.