с кроссвордом по информатике на тему "компьютерные телекоммуникации. Локальные сети"

смотри блок-схему в приложенном файле

хвалебный                                                                     

(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 x: real; begin  read(x);   writeln(round(x)); end.