Задача в Delphi 7(помогите разобраться)

[tikho]

Задача: если |x|>4.5,то y=32+exp(-2*sqr(x)),иначе y=ln(1+sqrt(1+sqr(x))!
Учитель сказал,что программа правильная,но надо уложиться в три оператора,помогите как это сделать!
Program P1;
{$ApptypeConsole}
uses
Sysutils,Window;
Var
x,y:Real;
Begin
Windows Beep (50,10);
Write (‘Input x: ‘);
Readln;
Windows Beep (500,100);
If abs(x) > 4.5 then y:=32+exp(-2*sqr(x))
Else y:=ln(1+sqrt(1+sqr(x));
Writeln (‘y=’,y);
end

[Хыиуду]

Убрать лишнее (на работу не влияют, просто рюшечки-завитушечки).
Program P1;
{$ApptypeConsole}
uses
Sysutils,Window;
...
Windows Beep (50,10);
Write (‘Input x: ‘);
...
Windows Beep (500,100);
Заменить (критическая ошибка!)
readln; на readln(x);