Thuật toán:

B1: nhập vào n

B2: xét từ 1 đến n và đếm xem có bao nhiêu số là ước của n(n chia hết cho số đó)

B3: nếu có 2 số là ước thì n là số nguyên tố

B4: nếu có nhiều hơn hoặc ít hơn 2 thì không

Chương trình:

uses crt;

var i,n,d: integer;

begin

clrscr;

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

d:=0;

for i:=1 to n do

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

if d=2 then write (n,' la snt')

else write (n,' khong phai la snt');

readln;

end.

Thuật toán :

Input : Số nguyên n

Output : Số nguyên n có phải là số nguyên tố hay không ?

Mô tả thuật toán : 

B1 : nhập n

B2

2.1 nếu  n < 1 thì kết luận đây không là số nguyên tố

2.2 nếu n = 2 thì kết luận đây là số nguyên tố, chuyển tới B

Còn không thì :

B3 i← 2 ; d ← 0

B4 nếu i > n - 1 thì chuyển tới B6

B5 nếu n chia i = 0 thì d ← d + 1

B6 i ← i + 1

B7 nếu  d `!=` 0 thì kết luận đây không phải là số nguyên tố, ngược lại kết luận đây là số nguyên tố

B8 kết thúc

Chương trình Pascal ( nếu Python nói nhé ) :

uses crt;
 var n,i,d : longint ;
  begin
   clrscr;
write('N=');
 readln(n);
if (n<1) then writeln('Khong la so nguyen to');
if (n=2) then writeln('Day la so nguyen to')
   else 
     begin
    i := 2 ;
    while i > n - 1 do
         begin 
        if n mod i = 0 then d := d + 1 ;
        i := i + 1 ;
         end ;
    if d <> 0 then writeln('Day khong la so nguyen to')
        else writeln('Day la so nguyen to');
     end;
    end.