uses crt;
var n,t,y,s:longint;
function sum(a:longint):longint;
begin
   sum:=0;
   repeat
      inc(sum,a mod 10);
      a:=a div 10;
   until a=0;
end;
begin
clrscr;
   write('Ngay sinh: '); readln(n);
   write('Thang sinh: '); readln(t);
   write('Nam sinh: '); readln(y);
   s:=s+n+t+y;
   repeat
      s:=sum(s);
   until s<10;
   if s=1 then writeln('An Khang Thinh Vuong')
   else if s=2 then writeln('Con cai hoc gioi')
   else if s=3 then writeln('Lam an phat tai')
   else if s=4 then writeln('Su nghiep thanh cong')
   else if s=5 then writeln('Crush dong y')
   else if s=6 then writeln('Bi crush da :))')
   else if s=7 then writeln('Con cai vang loi')
   else if s=8 then writeln('Tien vo nhu nuoc')
   else if s=9 then writeln('Co long giup nguoi ngheo');
readln
end.