Помогите, это ОЧЕНЬ СРОЧНО!!!
Решите 5 номер

Program IfElse;var x,y: real;begin  writeln(x);  readln (x);  if x<=3   then y:=Sqr(x)   else y:=1/Sqrt(x-3);  writeln('y=',y:6:2);  readlnend;