Question

Составьте программу, определяющую, является ли введенное число решением неравенства х2(квадрат) - 4 >0. 

Answer 1

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.