Вкаком режиме работает с базой данных пользователь?

(4 > -(4 + x)·x)) = true

(30 > x·x) = false

4> -4x-x^2

x^2+4x+4> 0

(x+2)^2> 0

x< > -2

(30 < x·x)

|x|> root(30)~5.47

x = 6

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.