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