Program baitap;
Var n: byte;
begin
Write (' Nhap so n la so nguyen duong: ');
Readln (n);
If n mod 2 = 0 and n mod 3 = 0 then
Write ( n,' la so chan chia het cho 3' );
If n mod 2 <> 0 and n mod 3 = 0 then
Write ( n,' la so le chia het cho 3');
If n mod 2 = 0 and n mod 3 <> 0 then
Write ( n,' la so chan khong chia het cho 3 ');
If n mod 2 <> 0 and n mod 3 <> 0 then write ( n,' khong la so le khong chia het cho 3);
Readln
End.