program asd;
uses crt;
Const Nmax = 100;
Type TArr = Array [1..Nmax, 1..Nmax] Of Integer;
TLin = Array [1..Nmax] Of Integer;
Var A : TArr;
i,j,n,m,c: Integer;
Procedure SortLine(Var A : TLin;
Const m : Integer);
Var i, j : Integer;
Begin For i := 1 To m-1 Do For j := i+1 To m Do If A[i] > A[j] Then Swap(A[i], A[j]);
End;
Function Equal(Const X, У : TLin;
Const m : Integer) : Boolean;
Var i : Integer;
Begin i := 1;
While (i <= m) And (X[i] = Y[i]) Do Inc(i);
Equal := i > m;
End;
Begin TInit(A, n, m) ;
с := 1;
For i := 1 То n Do SortLine(TLin(A[i]), m);
For i := 1 То n-1 Do For j := i+1 To n Do If A[i, 1] > A[j, 1] Then SwapRow(A, m, i, j) ;
For i := 2 То n Do If Not Equal(TLin(A[i]), TLin(A[i-1]), M) Then Inc (c) ;
WriteLn('непохожих строк: ', c) ;
End.