Помогите пожалуйста с информатикой, кто разбирается
Программа паскаль

Вы в этом разбираетесь?

да.

Спасибо

var x,y: real;beginreadln(x);if x<0 then y:=sqr(sin(x))+2 elsey:=sqrt(x)+sqrt(sqr(x)+1);writeln('y=',y);end.