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