Chương trình tính Can Chi

program canchi;
var
Nam : integer;
Can : String[5];
Chi : String[5];
begin
repeat
write('Nhap vao so nam : ');
readln(Nam);
until (Nam>0);

{ Kiem tra Nam chia cho 10 du may de lua chon ra gia tri cua Can }
case (Nam mod 10) of
0 : Can := 'Canh';
1 : Can := 'Tan';
2 : Can := 'Nham';
3 : Can := 'Quy';
4 : Can := 'Giap';
5 : Can := 'At';
6 : Can := 'Binh';
7 : Can := 'Dinh';
8 : Can := 'Mau';
9 : Can := 'Ky';
end;

{ Kiem tra nam chia cho 12 du may de lua chon ra gia tri cua Chi }
case (Nam mod 12) of
0 : Chi := 'Than';
1 : Chi := 'Dau';
2 : Chi := 'Tuat';
3 : Chi := 'Hoi';
4 : Chi := 'Ti';
5 : Chi := 'Suu';
6 : Chi := 'Dan';
7 : Chi := 'Mao';
8 : Chi := 'Thin';
9 : Chi := 'Ty';
10 : Chi := 'Ngo';
11 : Chi := 'Mui';
end;

writeln('Nam ',Nam,' la nam ',Can,' ',Chi);

readln

end.