ответить на во все во по информатике ​

// pascalabc.net 3.0, сборка 1088 const   n=9;   m=7; var   a: array[1..n,1..m] of integer;   b: array[1..n] of boolean;   i,j,k: integer; begin   randomize;   writeln('*** исходный массив ***');   for i: =1 to n do begin       k: =0;       for j: =1 to m do begin           a[i,j]: =random(225)-112;           write(a[i,j]: 5);           if a[i,j]< 0 then inc(k)           end;       writeln;       b[i]: =k> 3   end;   writeln('*** строки, содержащие больше 3 отрицательных элементов ***');   for i: =1 to n do       if b[i] then write(i,' ');   writeln end. тестовое решение: *** исходный массив ***     89  -71    36  -25  -19    60  -28   -60  -35    20  112  -69    29    74       4  -23    -7  -15  107    64    -4   -82    91  102  -90    81    32  -64     41  -44    21    74    77  -77 -100   -38  -36  100      5  -42    54    46   -52    27  -86  -77    90    30    -2   -76  -14  -58    11    67  -91    59   -50    47  -47    12  -84  -76    11 *** строки, содержащие больше 3 отрицательных элементов *** 1 3 7 8 9