2d графика дегініміз не​

Pascalabc.net 3.3 под девизом"памяти наших дедов " const   n=10; var   a: array[1..n,1..n] of integer;   i,j,sumdiag,k: integer;   p: real; begin   writeln('*** исходная матрица ***');   randomize;   sumdiag: =0;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =random(199)-99;           if i=j then sumdiag: =sumdiag+a[i,j];           write(a[i,j]: 4)           end;       writeln       end;   for i: =1 to 4*n do write('-');   writeln;   writeln('сумма элементов на главной диагонали ',sumdiag);   p: =sumdiag/15;   k: =0;   for i: =1 to n do       for j: =1 to n do           if a[i,j]< p then k: =k+1;   writeln('искомое количество элементов ',k) end. пример *** исходная матрица ***   95  37  30  21  83 -99  48 -40  49 -19   -66 -82  88 -24  70  14 -88  11  60  14   -72 -80  90  25  68  23  91  66 -54  52   33  16  25 -72  85  58 -39  44    8 -29     8  78 -79  51  50 -61 -13 -87  87  66   63 -45  94 -48  59  76  46 -94  53 -40   -90  81 -85  96  47  18  -8  61 -10 -87   -47 -33 -97 -10 -93 -51  98 -60  74  30   -63  78  79 -21  89 -21  21 -26 -31 -91   -88 -45  91 -51 -39  26  64 -75 -96 -67 сумма элементов на главной диагонали -9 искомое количество элементов 46

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(10,10,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes;   var sumdiag: =s.where(x-> x[1]=x[2]).sum(x-> x[0]);   writeln('сумма элементов на главной диагонали ',sumdiag);   writeln('искомое количество элементов ',s.where(x-> x[0]< sumdiag/15).count) end. пример *** исходная матрица ***   35  15 -56 -90 -87 -60 -82  -4 -72    9   -9 -48 -45 -62 -48  95  57 -26  12  68   34  72  10  -6 -12  15 -68 -11 -92  70   -68 -52 -12  36 -61 -53 -82  18 -93  34   87  89 -39 -87  67 -45  95 -77 -10  56   -48  99  62  44  16  62 -95  49  22  -3   -92  28 -12 -42 -23 -57  63  18  98 -94   77 -61 -33  77  80  45  12  -3  26 -67   20 -91  99 -49  18 -68 -14  43 -79 -23   -58 -31  96  10  26 -40    1 -97  35  25 сумма элементов на главной диагонали 168 искомое количество элементов 57