Question

Даны 2 числа x и y Меньшее из этих чисел, замените их полученной суммой

Answer 1

var x,y:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if x<y then writeln (x+y,' ',y) else 
writeln(x,' ',x+y);
readln;
end.