program am_duonglich
var nam:integer;
writeln('nhap nam duong lich vao');readln(nam);
writeln('nam am lich tuong ung');
case nam mod 10 of
9:write('ki',' ');
8:write('mau',' ');
7:write('dinh',' ');
6:write('binh',' ');
5:write('at',' ');
4:write('giap',' ');
3:write('quy',' ');
2:write('nham',' ');
1:write('tan',' ');
0:write('canh',' ');
case nam mod 12 of
0:write('than');
1:write('dau');
2:write('tuat)';
3:write('hoi');
4:write('ti');
5:write('suu');
6:write('dan');
7:write('meo');
8:write('thin');
9:write('ty');
10:write('ngo');
11:write('mui');
end;
readln;
end.