Решение задачи Matrix 37

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n, m, k = 0;
    cin >> n >> m;
    set<int> b;
    int a[m][n];
    for(int i = 0; i < m; ++i){
        for(int j = 0; j < n; ++j)
            cin >> a[i][j];
    }
    for(int i = 0; i < m; ++i){
       b.insert(a[i][n - 1]);
    }
    for(int i = 0; i < n - 1; ++i){
        set<int> t;
        for(int j = 0; j < m; ++j)
            t.insert(a[i][j]);
        if(t == b)
            ++k;
    }
    cout << k << endl;

    return 0;
}

program Matrix37;
var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j:Integer;
  Column1, ColumnN : set of byte;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 Column1:=[];
 for i:=1 to M do Column1:=Column1+[a[i,N]];
 
 Num:=0;
 for  j:=1 to N-1 do
  begin
   ColumnN:=[];
 
   for i:=1 to M do ColumnN:=ColumnN+[a[i,j]];
 
 
   if Column1=ColumnN then Num:=Num+1;
  end;
 
  Writeln(Num);
end.