Помогите составить и решить задачу.

Question

Помогите составить и решить задачу.

---

Answer 1

Var
x,y:real;
begin
readln(x);
if x<1 then y:=(x*x)/sqrt(1-x);<br>if x=1 then y:=x+3;
if x>1 then y:=2*(x*x);
writeln(y);
end.