primzahl.pas

来自「一个编译器的源程序」· PAS 代码 · 共 25 行

program Primzahl;
begin
  write('2');
  bis:=100;
  Zahl:=3;
  while Zahl<bis do begin
    Teilbar:=false;
    Faktor1:=3;
    while Faktor1<Zahl/2 do begin
      Faktor2:=3;
      while Faktor2<Zahl/2 do begin
        if Zahl=Faktor1*Faktor2 then begin
          Teilbar:=true
        end;
        Faktor2:=Faktor2+2
      end;
      Faktor1:=Faktor1+2
    end;
    if Teilbar=false then begin
      write(Zahl)
    end;
    Zahl:=Zahl+2
  end
end.