Сформировать двумерный массив а (7x7). Вывести его как таблицу и найти сумму элементов главной диагонали.

Var  A     : array[1..7,1..7] of Integer;  i,j,s : Integer;Begin  s:=0;  For i:=1 to 7 do  Begin    For j:=1 to 7 do    Begin      A[i,j]:=Random(100);      If i=j then s:=s+A[i,j];      Write(A[i,j]:4);    end;    Writeln;  end;  Write('Сумма элементов главное диагонали: ',s);end.