Пожалуйста посчитайте написать программу всё вместе

Var
   X:real;
Begin
Write('X = ');ReadLn(X);
if X>=Pi then Write(0)
else if X>=0 then Write(Sin(X))
     else if X>=-2 then Write(0)
          else Write(Sqr(x+2))
End.