Fonction Somme Matrice Carré

Function Somme_mat (t:tab;n:Integer): Integer;
Var
  i,j,s: Integer;
Begin
  s := 0;
  For i:=1 To n Do
    For j:=1 To n Do
            s:=s+t[i,j];
        Somme_mat:=s;
End;