\дана квадратная матрица nxn. повернуть ее на m градусов и вывести результат на экран. а) на 90 градусов влево б) на 90 вправо в) на 180 градусов написать для паскаль авс

//pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) function transpose(a: array[,] of integer): array[,] of integer; //поворот на 90гр по часовой стрелке begin   var m : = length(a, 0);   var n : = length(a, 1);   result : = new integer[n, m];   for var i : = 0 to n-1 do begin       for var j : = 0 to m-1 do           result[i, j] : = a[m-1-j, i];   end; end; begin   var n : = readinteger('введите n: '); //заполнение матрицы nxn сл. числами и вывод на экран   var a : =matrixrandom(n, n);   for  var i: =0 to n-1 do begin       for var j: =0 to n-1 do           print(a[i,j]);       println;       end;         println;   println('поворот влево на 90 гр');   var b : = transpose(a);   b: =transpose(b);   b: =transpose(b);   for  var i: =0 to n-1 do begin       for var j: =0 to n-1 do           print(b[i,j]);       println;       end;   println;   println('поворот вправо на 90гр');   b : = transpose(a);   for  var i: =0 to n-1 do begin       for var j: =0 to n-1 do           print(b[i,j]);       println;       end;   println;   println('поворот на 180 гр');   b : = transpose(a);   b : = transpose(b);   for  var i: =0 to n-1 do begin       for var j: =0 to n-1 do           print(b[i,j]);       println;       end; end.

Слов- цезаря зарубили в 45 году до нашей эры. атлас дорог москвы