Подмножество объектов, имеющих общие признаки

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

(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