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

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

beginwrite ( \'Введите первое число: \' );readln ( x );write ( \'Введите второе число: \' );readln (y);if abs (x) > abs (y) then z := x / 5;writeln (z);end.