program edfr; uses crt; var q,w,e:integer; begin writeln('введите x'); readln(q); if sqrt(q*q)>=8 then writeln('да ') else writeln('нет '); readln; end.