Program BTT; Uses crt; Var a: 1..12; Begin Clrscr; Write('Nhap thang: '); Readln(a); If (a>=1) and (a<4) then Write('Mua Xuan'); If (a>=4) and (a<7) then Write('Mua Ha'); If (a>=7) and (a<10) then Write('Mua Thu'); If (a>=10) and (a<13) then Write('Mua Dong'); Readln End.