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

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