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

Question

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

Answer 1

Var x,y:integer; 
begin 
writeln('Введите X'); 
read(x); 
writeln('Введите Y'); 
read(y);   
if x>y then writeln('X=',x,',','Y=',X+Y)   
else writeln('X=', X+Y,',','Y=', Y);   
end.