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

var

x: longint;

begin

cls;

write ('Введите любое число с клавиатуры: ');

read (x);

if (x * x - 4 > 0) then writeln ('Данное число является решением указанного неравенства.')

else writeln ('Данное число не является решением указанного неравенства.');

end.