Nhập vào 1 số nguyên n , in ra màn hình xem số đó có phải số nguyên tố không ( sử dụng vòng lặp while-do )

program nguyento_while;

uses crt;

var n,i:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       i:=2;

       while n mod i<>0 do

              i:=i+1;

       if i=n then write(n,’ la so nguyen to’)

              else write(n,’ khong phai so nguyen to’);

       readln;

end.