program nguyen_to;

uses crt;

var n,i,d:integer;

begin

       clrscr;

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

       d:=0;

       for i:=2 to n-1 do

              if n mod i=0 then d:=d+1;

       if d=0 then write(n,' la so nguyen to')   

             else write(n,' khong la so nguyen to');

       readln;

end.

Ví dụ:             N = 19            Kết quả là: 19 la so nguyen to

N = 33            Kết quả là: 33 khong phai la so nguyen to

Yêu cầu: Input:   N, là số tự nhiên bất kỳ.

Output: Trả lời “N la so nguyen to”

      hoặc “N khong phai la so nguyen to” tùy theo N.

Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).

Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).

áp dụng và làm ik

                                                               xin hay nhất ạ !

@mun