Пожалуйста посчитайте, это ОЧЕНЬ СРОЧНО!!! Пожалуйста посчитайте 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);
  readln
end;