program Symetrique;
var
A: array [1..100, 1..100] of Integer;
n, m, i, j: Integer;
Symetrique: Boolean;
begin
write('Entrez le nombre de lignes de la matrice : ');
readln(n);
write('Entrez le nombre de colonnes de la matrice : ');
readln(m);
if n <> m then
begin
write('La matrice n''est pas carrée.');
exit;
end;
write('Entrez les éléments de la matrice : ');
for i := 1 to n do
for j := 1 to m do
read(A[i, j]);
Symetrique := True;
for i := 1 to n do
for j := 1 to m do
if A[i, j] <> A[j, i] then
begin
Symetrique := False;
break;
end;
if (Symetrique = True) then
write('La matrice est symétrique.')
else
write('La matrice n''est pas symétrique.');
end.