Điều kiện để n chia hết cho 3 là n chia 3 không có dư
`=>` n mod 3=0
Trong đó mod là chia lấy phần dư
Chương trình kiểm tra tính chia hết cho 3 của n:
uses crt;
var n:longint;
begin
clrscr;
readln(n);
if n mod 3=0 then write('Phai') else write('Khong');
readln;
end.