Меньшее из двух чисел (a,b) уменьшите на 4

// меньшее из двух чисел (a,b) уменьшите на 4 Var x,y   : real; begin   writeln ('Введите первое число');   readln (x);   writeln ('Введите второе число');   readln (y);   while x=y do     begin       writeln ('Вы ввели равные числа. По условиям задачи числа не должны быть равны. Попробуйте еще раз');       writeln ('Введите первое число');       readln (x);       writeln ('Введите второе число');       readln (y);     end;   if x