Составить программу, которая уменьшит первое число в 5 раз, если оно больше второго по абсолютной величине.

var

x, y : integer;

z : real; / / переменной z присваиваем тип real, поскольку она может принимать дробные значения.

begin

write ('Введите первое число: ');

readln (x);

write ('Введите второе число: ');

readln (y);

if abs (x) > abs (y) then z : = x / 5;

writeln (z);

end.