Program Tenchuongtrinh;
Uses crt;
Var a:longint;
Begin
         Clrscr;
         Write('Nhap so a= '); readln(a);
         If (a mod 3=0) then writeln(a,' chia het cho 3')
           else writeln(a,' khong chia het cho 3');
         Readln;
End.