// меньшее из двух чисел (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.
формат ⇒ абзац ⇒ отступы ⇒ слева и справа