Question

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

Answer 1

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