Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и меньшего.

Question

Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и
меньшего.

Answer 1

Program test;
var
 x, y : integer;
begin
 Write("Введите x:");
Readln(x);
Write("Введите y:);
Readln(y);
if (x > y) then
begin
 x := x - y;
Writeln(x);
end
else
begin
y := y -x;
Writeln(y);
end;
end.