Viết chương trình nhập vào một số dương từ bàn phím và kiểm tra nó có chia hết cho 3 không

bài 1:viết chương trình nhập vào một số dương từ bàn phím và kiểm tra nó có chia hết cho 3 ko
1 )gõ chương ình sau đây 
program chiahet;
var n :integer;
begin
write('nhap:');
readln(n);ì n mod 3=0then writeln (n,'la so chia het cho3')else writeln (n',khong chia het cho 3');
readln 
end
các bạn  ơi
giúp mình giải  này với.