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('нет корней');
end.