Ответы и объяснения

2014-01-19T18:20:59+04:00
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.