uses crt;
Var k,t,i,j,tong,ton,n:longint; a:array[1..100000]of string;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end; write('Cac so hanh phuc: ');
   for i:=1 to n do
      begin
         k:=length(a[i]) div 2;
         if (length(a[i]) mod 2=0) then
            begin tong:=0; ton:=0;
               for j:=1 to k do begin val(a[i][j],t); inc(tong,t); end;
               for j:=k+1 to n do begin val(a[i][j],t); inc(ton,t); end;
               if tong=ton then write(a[i],' ');
            end;
      end;
readln
end.

#include<bits/stdc++.h>
using namespace std;
int logarit(int n){
    int dem=0;
    while(n>=10){
        n/=10; // hay n = n /10;
        dem++;
    }
    return dem+1;
}
int strtti(string s)
{
    int total=0,a,temp=0;
    for(int i=0;i<s.size();i++)
    {
        char c=s[i];
        a=(int)c-48;
        temp=temp*10+a;
        if(i==s.size()-1)
        {
            total+=temp;
        }
    }
    return total;
}
int tongchuso(int n)
{
    int sotachra,s=0;
    for(;n!=0;){
        sotachra = n % 10;
        s += sotachra;
        n /= 10;
    }
    return s;
}
void checkdaucuoi(string a)
{
    string b=a.substr(0,a.size()/2);
    string c=a.substr(a.size()/2,a.size()/2);
    if(tongchuso(strtti(b))==tongchuso(strtti(c))){
        cout<<a;
    }
}
int main()
{
    int n;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
    }
    for(int i=0;i<n;i++){
        if(logarit(arr[i])%2==0){
            checkdaucuoi(to_string(arr[i]));
        }
    }
    //samon247
    return 0;
}