Primzahl

[Wolfgang Mix]

Delphi-Quellcode:

while zahl<=n do
begin
  prim:=true;
  teiler:=zahl;
  wurzel:=sqrt(n);
  while (teiler <= wurzel) and (prim) do
  begin
    if zahl mod teiler:=0 then prim := false;
    teiler:=teiler + 1 ;
  end;
  inc(zahl) //hier
end;