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

var x: longint;

begin

cls; write (\'Введите любое число с клавиатуры: \'); read (x); if (x * x - 4 > 0) then writeln (\'Данное число является решением указанного неравенства.\') else writeln (\'Данное число не является решением указанного неравенства.\');end.