Составьте программу в паскале по теме двумерные массивы. : даны две матрицы а(nxn) и с(nxn).написать программу вычисления матрицы с^т(а+а) где с^т транспонируемая матрица.

Var a: array of array of integer; c: array of array of integer; ma: array of array of integer; i,j,n: integer; begin; randomize; readln(n); setlength(a,n+1); //задаём размерность динамических массивов setlength(c,n+1); setlength(ma,n+1); for i: =1 to n do begin; setlength(a[i],n+1); setlength(c[i],n+1); setlength(ma[i],n+1); end; writeln('matrix a: ');   //генерируем массив псеводслучайных чисел for i: =1 to n do  begin;   writeln;   for j: =1 to n do     begin;     a[i,j]: =random(10);     write(a[i,j]: 4);     end;   end; writeln; writeln('matrix c: '); //аналогично for i: =1 to n do   begin;   writeln;   for j: =1 to n do     begin;     c[i,j]: =random(10);     write(c[i,j]: 4);     end;   end; for i: =1 to n do     //сохраняем матрицу c для транспонации   for j: =1 to n do     ma[i,j]: =c[i,j];       writeln; writeln('transpose matrix c: '); //транспонируем c for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       c[i,j]: =ma[j,i];       write(c[i,j]: 4);     end;   end; writeln; writeln('final matrix: '); // получаем финальную матрицу for i: =1 to n do   begin;   writeln;     for j: =1 to n do     begin;       ma[i,j]: =2*c[i,j]*a[i,j]; {по свойству дистрибутивности матриц с(a+a)=c*a+c*a=2*c*a}       write(ma[i,j]: 4);     end;   end; end.

А) текст. б) текстовая информация. в) документ. г) символ.