помогите пожалуйста срочно, не понимаю как правильно оформлять if, then, else

var x:real;

begin

readln(x);

if(x>=0.9) then writeln(1/((0.1+x)*(0.1+x)))

else if(x<0) then writeln(x*x+0.2) else writeln(0.2*x+0.1);

end.