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

Question

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

---

Answer 1

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