Запишите программку, которая будет предлагать юзеру ввести любые два числа, ложить

Ответ:

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.