Решить! ! на паскале найти значение y y ={ sin^2 x+2 если x < 0 корень из х + корень х^2+1 если x> =0

Program advb;
Var 
 y,x:real;
Begin
  Write('x= '); 
  Readln(x);
  if x<0  then
   y:=sqr(sin(x))+2
   else y:=sqrt(x)+sqrt(x*x+1);
  Writeln('y= ',y);
End.