ИНФОРМАТИКА ПИТОН МАКС

Var     a: array[1..100,1..100] of integer;     i,j,n,z: integer; begin writeln('введите размерность матрицы a[n,n]: '); write('n = '); readln(n); writeln('как заполнить матрицу? '); writeln('1 - автоматически, 0 - с клавиатуры'); readln(z); if z=1 then     for i: = 1 to n do             begin             for j: = 1 to n do                     begin                     a[i,j]: =random(21)-10;                     write(a[i,j]: 3,' ');                     end;             writeln             end else     for i: = 1 to n do             for j: = 1 to n do                     read(a[i,j]); z: =1; for i: = 1 to n do       for j: = 1 to n do               if a[i,j]< > a[j,i] then z: =0; if z=1 then writeln('матрица семметрична относительно главной диагонали') else writeln('матрица не семметрична относительно главной диагонали') end.