Вопрос 6 Каково наибольшее целое положительное число X, при котором ложно утверждение: (x(X+6)+9>0)--> (Х^2>45)

третье, там где пять

5> 4 и не 5> =6

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

  writeln(x) вот этой! потому что если взять  в ковычки выведет х