1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function prim (n, d : integer) : boolean;
begin
if n<2 then 
 prim:=false
else
 if n=2 then 
  prim:=true
 else
  if n mod 2=0 then
   prim:=false
  else
   begin
    if d*d>n then
     prim:=true
    else
     if n mod d=0 then
      prim:=false
     else
      prim:=prim(n,d+2)
   end
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

die variablen zahl und d werden in die funktion eingeschleust, dabei ist d am anfang gleich 3
wenn die zahl<2 ist, dann
 ist die annahme falsch
ansonsten
 wird geprüft, ob die zahl=2 ist, dann ist 
  die annahme richtig
 ist keines der fall
  wird die zahl durch 2 geteil. geht das auf, dann
   ist die annahme falsch
  ansonsten
   beginnt die schleife 1
    wenn d*d>als die zahl
     ist es eine primzahl
    ansonsten
     wird die zahl durch d geteilt. gibt es einen rest, dann
      ist die annahme falsch
     ansonsten
      wird die funktion mit der zahl und d+2 aufgerufen.
   ende der schleife 1