Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln(Vvedite x);
Readln(x);
if sqr(x)-4>0 then writeln(Da) else writeln(Net);
Readkey;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.