Mình viết code C++ nhé :)

#include <fstream>
using namespace std;
int gia_tri_cuoi(int x)
{
 if (x < 10) return x;
 int tong = 0;
 while (x > 0)
 {
  tong += x % 10;
  x /= 10;
 }
 return gia_tri_cuoi(tong);
}
int main()
{
 ifstream fin("LUCKY.INP");
 ofstream fout("LUCKY.OUT");
 int a[105];
 int N;
 fin >> N;
 for (int i = 0; i<N; ++i) fin >> a[i];
 int LUCKY[10] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
 for (int i = 0; i<N; ++i) ++LUCKY[gia_tri_cuoi(a[i])];
 int max = -1;
 int ketqua = 0;
 for (int i = 0; i<10; ++i)
 {
  if (LUCKY[i] > max) 
  {
   ketqua = i;
   max = LUCKY[i];
  }
 }
 fout << ketqua << endl;
 return 0;
} 

Const Fi='LUCKY.INP';
      Fo='LUCKY.OUT';
Type manga = array[1..1000] of longint;
Var f,g: text;
    A,B: manga;
    n,i,j,max,so: longint;

Function tongcs(a: longint): longint;
Var s: longint;
Begin
        s:=0;
        While a<>0 do
        Begin
                s:=s+a mod 10;
                a:=a div 10;
        End;
        tongcs:=s;
End;

Function SCC(a: longint): byte;
Begin
        While a>9 do
                a:=tongcs(a);
        SCC:=a;
End;

Function dem(a: manga; n,x: longint): longint;
Var i,c: longint;
Begin
        c:=0;
        For i:=1 to n do
                If A[i]=x then inc(c);
        dem:=c;
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Readln(f,n);
        For i:=1 to n do Readln(f,A[i]);

        For i:=1 to n do
                A[i]:=SCC(A[i]);
        B[i]:=0;
        For i:=1 to n do
                For j:=i to n do
                        If A[i]=A[j]then inc(B[i]);
        max:=B[1];
        For i:=1 to n do
                If B[i]>max then max:=B[i];
        Write(g,max);
        Close(f);
        Close(g);
End.