program sym_mat;
{ 1 2 3
  2 5 6
  3 6 9

  a_i,j = a_j,i}

const MAXVELKOST = 10;
var matica: array [1..MAXVELKOST, 1..MAXVELKOST] of integer;
    m,n:integer;
    i,j:integer;

    nesym:integer;
begin
  write('Zadaj pocet riadkov:');
  readln(m);
  write('Zadaj pocet stlpcov:');
  readln(n);

  for i:=1 to m do begin
    for j:=1 to n do begin
      writeln('Zadaj cislo na ', i, '-ty riadok a ', j, '-ty stlpec');
      readln(matica[i,j]);
    end;
  end;

  nesym:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      if matica[i,j] <> matica[j,i] then
        nesym:=1;
    end;
  end;

  if nesym=0 then
    writeln('Matica je symetricka')
  else
    writeln('Matica NIE je symetricka');

end.