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

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