Расписать программу примера

Question

Расписать программу примера

---

Answer 1

Program gt;
var x,y:real;
begin
readln(X);
if(x+36>=0)then begin
y:=sqrt(x+36);
writeln(y);
end;
if(x+36<0)then writeln('нет корней');<br>end.