Одно из свойств слайда презентации,что касается его фона

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! №1 begin   var a: =arrrandom(readinteger('n=',50); a.println;   writeln('количество отрицательных значений ',a.where(t-> t< 0).count); end. пример n= 15 3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21 количество отрицательных значений 5 №2 begin   var (m,n): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var k: =readinteger('k=');   if a.elementsbyrow.any(t-> t> k) then writeln('есть')   else writeln('нет') end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив ***   -9  48 -98 -35 -33 -29  44 -32   -33 -48 -62  11  45  53  52  90   -96  -1  68 -21  15 -72 -78 -28   44  15 -53 -33 -27  89 -60 -49   28 -73 -99  81  23  -9 -93 -66 k= 92 нет