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

длинновато и зачем 2 раза ввод?

проверка на равные числа

Можно было проще, но это верный ответ

Можно, но мне кажется так нагляднее

Да, если не требуют оптимального кода :)

// меньшее из двух чисел (a,b) уменьшите на 4Var 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<y then x:=x-4           else y:=y-4; writeln ('Первое число ',x,' Второе число ',y);       end.