Program zamena;
uses crt;
const m=100;
Type TArr = Array [1..m,1..m] Of Integer;
Var a, b : TArr;
i, j, n, tp : Integer;
BEGIN
clrscr;
randomize;
 for i:=1 to m do begin
for j:=1 to m do begin
a[i,j]:=random(45)-22;
write(a[i,j]:4);
end;
writeln;
end;
tp := 0; i := 1;
While (i <= n) And (tp <= 3) Do Begin j:= i;
While (j <= n) And (tp <= 3) Do Begin
If a[i, j] <> b[i, j] Then
If (a[j, i] = b[i, j]) And (a[i, j] = b[j, i)Then Inc (tp)
Else tp := 4; Inc(j) ;
End;
Inc (i);
End;
If tp <= 3 Then
WriteLn('Yes, ', tp, ' transposition')
Else
WriteLn('No');
End.