uSES CRT;
vAR d,n,t,two,i,tong,k:longint; s:string;
a:array[1..9] of string;
begin
 clrscr;
a[1]:='xui xeo trong tuong lai';
a[2]:='lan dan, tim kiem hp hay gap xui xeo cung kho tranh khoi';
a[3]:='kho khan trong cs';
a[4]:='hanh phuc';
a[5]:='e';
a[6]:='kem may man bo lo co hoi';
a[7]:='khong co gi dac sac';
a[8]:='boi khong ra, khi van tiem tang, at gap may, chi can co gang trong cuoc song';
a[9]:='nha cao cua rong, vo nho vo to';
 write('Ngay:');Readln(d);
 write('Thang:');Readln(t);
 write('Nam');Readln(N);
    tong:=d+t+n; str(tong,s);
   // Writeln(s);
   Write('So tinh duyen cua ban la: ');
   If Length(s)=1 then write(S) else
    begin
    repeat 
     two:=0;
        For i:=1 to length(s) do 
        begin
            Val(s[i],k);
            Inc(two,k);
        end; str(two,s); 
    until length(s)=1; write(s); end;
    Val(s,k); writeln;
    Writeln(a[k]);
end.