Дана матрица B(nxn). Если данная матрица является симметричной относительно главной диагонали, то все диагональные эле¬менты заменить нулями. В противном случае оставить матрицу без изменения. Выдать матрицу (или две матрицы, если преобразование выполнялось) на печать выделив разными цветами элементы главной диагонали, элементы верхнего угла матрицы, элементы нижнего угла матрицы (относительно главной диагонали) — Pascal(Паскаль)

uses crt;
var
   c,b:array[1..100,1..100] of integer;
   i,j,n:longint;
   q:boolean;
begin
   textcolor(15);
   randomize;
   clrscr;
   readln(n);
   q:=true;
   for i:=1 to n do
      for j:=1 to n do
      begin
         c[i,j]:=random(50)+10;
         b[i,j]:=c[i,j];
         if c[i,j]<>c[j,i] then
            q:=false;
      end;
   if q=true then
      for i:=1 to n do
         for j:=1 to n do
            if i=j then
               c[i,j]:=0;
   if q=false then
      for i:=1 to n do
         for j:=1 to n do
         begin
            if ((i=1) and (j=n)) or ((i=n)and (j=1)) then
            begin
               textcolor(random(14)+1);
               write(b[i,j],' ');
            end
            else
               if i=j then
               begin
                  textcolor(random(14)+1);
                  write(b[i,j],' ');
               end
               else
               begin
                  textcolor(15);
                  write(b[i,j],' ');
               end;
            if j mod n = 0 then
               writeln;
         end;
   if q=true then
   begin
       for i:=1 to n do
         for j:=1 to n do
         begin
            if ((i=1) and (j=n)) or ((i=n)and (j=1)) then
            begin
               textcolor(random(14)+1);
               write(b[i,j],' ');
            end
            else
               if i=j then
               begin
                  textcolor(random(14)+1);
                  write(b[i,j],' ');
               end
               else
               begin
                  textcolor(15);
                  write(b[i,j],' ');
               end;
            if j mod n = 0 then
               writeln;
         end;
      for i:=1 to n do
         for j:=1 to n do
         begin
         if ((i=1) and (j=n)) or ((i=n)and (j=1)) then
            begin
               textcolor(random(14)+1);
               write(c[i,j],' ');
            end
            else
               if i=j then
               begin
                  textcolor(random(14)+1);
                  write(c[i,j],' ');
               end
               else
               begin
                  textcolor(15);
                  write(c[i,j],' ');
               end;
            if j mod n = 0 then
               writeln;
         end;
   end;
   readln;
end.