uses crt;
var n,i,j,tong:longint;
    a:array[1..100000] of longint;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for j:=1 to n do
    begin
        tong:=0;
        for i:=1 to a[j] div 2 do
                if a[j] mod i=0 then tong:=tong+i;
        if tong=a[j] then write('TRUE ') else write('FALSE ');
    end;
    readln;  readln;
end.

#include <iostream>
using namespace std;
int main (){
  long long z,n,i;
  double result = 0;
  
  cout << "Nhap n: ";cin >> n;
  for (int i=0;i<100;i++){
   if (n<1) {
   break;}
  n=(n-n%10) /10;result++;
  }
  cout << result << " chu so: ";
 return 0;

}