uses crt;  {khai báo thư viện crt}

vả n,i:integer;  {khai báo 2 biến n,i kiểu integer}

begin    {bắt đầu}

     clrscr;   {Xóa sạch mà hình}

     write('Nhap vao mot so nguyen');   {In ra màn hình"Nhao vao mot so nguyen"}

     readln(n);   {Nhập vào 1 số}

    if n<2 then writeln('N khong phai so nguyen to')    {Nếu n<2 thì in ra màn hình "N khong phai so nguyen to}

     else  {ngược lại thì}

          begin   {bắt đầu}

               i:=2;    {Gán i=2}

               while (n mod i<>0) do i:=i+1;   {Trong khi n còn chưa chia hết cho i thì tăng i thêm 1 đơn vị}

               if i=n then writeln(n,' la so nguyen to')     {Nếu i=n thì in ra màn hình giá trị của n " la so nguyen to"}

               else writeln(n,' khong phai la so nguyen to');   {ngược lại thì in ra giá trị của n " khong phai la so nguyen to"}

          end;   {kết thúc}

     readln;  {nhấn enter để bỏ qua}

end.  {Kết thúc}

Ví dụ:

  1: In ra màn hình "N khong phai so nguyen to"

  7: In ra màn hình "7 la so nguyen to"

  8: In ra màn hình "8 khong phai la so nguyen to"

Dòng 1: khai báo thư viện.

Dòng 2: khai báo biến.

Dòng 3: bắt đầu chương trình.

Dòng 4: xóa màn hình.

Dòng 5: in ra mà hình dòng chữ "nhap vao mot so nguyen" và yêu cầu nhập số đó (nhập n).

Dòng 6: nếu n ≤ 1 thì in ra màn hình "<giá trị> n khong phai so nguyen to".

Dòng 7: ngược lại.

Dòng 8: bắt đầu câu lệnh 2.

Dòng 9: gán i = 2.

Dòng 10: nếu n không chia hết cho i thì i được gán bằng i+1.

Dòng 11: nếu i = n thì in ra màn hình "<giá trị> n la so nguyen to!" rồi xuống dòng.

Dòng 12: ngược lại in ra màn hình "<giá trị> n khong phai la so nguyen to!" rồi xuống dòng.

Dòng 13: kết thúc câu lệnh 2.

Dòng 14: thông báo kết quả ra màn hình.

Dòng 15: kết thúc chương trình.