Câu hỏi: 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 Dùng câu lệnh While do giúp em

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.

uses crt;
var n,s,i:longint;
begin
clrscr;
i:=1;
while i<>0 do 
begin
write('nhap n=');
readln(n);
if n mod 3=0 then 
    begin
    writeln(n,' chia het cho 3');
    i:=0;
    end
else 
    begin
    writeln(n,' khong chia het cho 3');
    i:=2;
    end;
end;
readln
end.