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.