Написать программу! pascalabc.net . вычислить m=(kolichestvo(s)+ kolichestvo(n))^2. где функция kolichestvo(c) вычисляет количество четных элементов под побочной диагональю двумерного массива.

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! function kolichestvo(c: array [,] of integer): integer; begin   result: =0;   var n: =c.rowcount;   for var i: =1 to n-1 do       for var j: =n-i to n-1 do       if c[i,j].iseven then result+=1 end; function massiv: array[,] of integer; begin   var n: =readinteger('число строк/столбцов: ');   result: =matrrandom(n,n,-99,99) end; begin   var s: =massiv; s.println(4); writeln(4*s.colcount*'-');   var n: =massiv; n.println(4); writeln(4*n.colcount*'-');   var m: =sqr(kolichestvo(s)+kolichestvo(n));   writeln('m=',m) end. пример число строк/столбцов:   3   -77 -81  82   -30 -37  39   31  92  12 число строк/столбцов:   6   66    9 -64 -53  13 -61   16 -72 -25  38 -19  21   40  29  38  77 -38  11   31  76 -83 -17 -58    1   -2  39 -63  84 -35 -42   -23 -75 -57  92 -14 -73 m=64

Function kolichestvo(a: array[,] of integer): integer; begin var c: =a.colcount-1; result: =a.elementswithindexes.where(k-> k[2]> c-k[1]).           select(k-> k[0]).where(x-> x mod 2=0).count; end; begin   var k: =readinteger('количество строк и столбцов в матрицах = ');   var s: =matrrandom(k,k,-10,10);   writeln('s: '); s.println(6);   var n: =matrrandom(k,k,-10,10);   writeln('n: '); n.println(6);   writeln('m = ',sqr(kolichestvo(s)+kolichestvo(; end. пример: количество строк и столбцов в матрицах =  4 s:       9      9    -7      5       4      8    -2      8       8    10    -9    -2     10    -6    -3    -2 n:       9    -7    -4    -1     -1    -3      1      3       2    -6    -8      8       2      2      8      0 m = 81

program n1; uses crt; const n=10; var a,b: array[1..n] of integer; i,a1,b1: integer; s,s1: real; beginclrscr; randomize; for i: =1 to n do begin a[i]: =random(20); b[i]: =random(20); end; for i: =1 to n do begin s: =a[i]*b[i]/2; if s> s1 then begin s1: =s; a1: =a[i]; b1: =b[i]; end; end; writeln('naibolshya ploshad ',s,' y treugolnika s katetami ',a1,' i ',b1 ); readlnend.