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

Question

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

Answer 1

Var x,y:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if xwriteln(x,' ',x+y);
readln;
end.