Question

Помогите пожалуйста решить это! ​

Answer 1

program P1;

var

x,y : real;

begin

readln(x);

if 2 + x < 0 then

writeln('Решения нет')

else

begin

y := sqrt(2+x);

write(y);

end;

end.