Viết chương trình yêu cầu người dùng nhập vào một số nguyên n chia hết cho 3

uses crt;
var n:longint;
begin
 clrscr;
  write('nhap n. Chia het cho 3:');readln(n);
  while n mod 3<>0 do
        begin
         clrscr;
         write('nhap lai n. N chia het cho 3:');readln(n);
        end;
  if(n mod 3=0)then write('n da chia het cho 3');
 readln
end.

`\text{uses crt;}`

`\text{var n: integer;}`

`\text{begin}`

`\text{clrscr;}`

`\text{writeln('Nhap mọt so nguyen n'); readln(n)}`

`\text{if n mod 3=0 then writeln('n chia het cho 3')}`

`\text{else writeln('n khong chia het cho 3');}`

`\text{readln}`

`\text{end.}`

`\text{CHÚC BẠN HỌC TỐT !}`