Напишите программу для расчета по формуле.

Var   y: real; begin   y : = tan(3 * pi);   y : = y * y; {квадрат}   y : = y * y; {четвертая степень}   y : = (1 - y) / (ln(8) / ln(3));   writeln('y=', y) end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var k: =readinteger('номер столбца для подсчета суммы: ');   writeln('s=',a.col(k-1).sum) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   91 -39  49  29 -60 -58 -88  -5   -80  -5  58  38 -75 -76 -54 -33   -60 -66  98 -88  96 -48  94    2   -4  81 -38 -91  26 -91  32    7   30  83  30    3  22  93  31    0 номер столбца для подсчета суммы: 4 s=-109 на случай, если я неверно понял и нужна сумма по каждой колонке: begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   a.cols.select(s-> s.sum).println end. пример количество строк в массиве: 4 количество столбцов в массиве: 7 *** исходный массив [4,7] ***   13 -14  82  88 -38  55  89   11  74 -35  85  13  27 -80   -88  76 -64 -88 -50  28 -13   90  87 -71 -94 -59  95 -83 26 223 -88 -9 -134 205 -87