Даны целые числа x и y. Написать программу определения знака разности x-y. Разность вычислять нельзя. Разрешается сравнивать числа x и y с нулем, а между собой можно сравнивать только абсолютные величины чисел x и y.

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write (' введите первое число x '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число y '); / / вводим с клавиатуры второе число

read (y);

if x = y then write (' знака у разности х - у не будет ')

else

if (x > y) / / проверяем условие, если первое число больше другого, то

then write (' знак разности х - у будет положительным ') / / выводим один ответ

else write (' знак разности х - у будет отрицательным '); / / выводим другой ответ

end.