begin;
    comment  zeef van Erathostenes
    ;
    integer P, M;
    Boolean array PRIME[2 : 10000];
    for P := 2,
             3 step 2 until 10000 do
      PRIME[P] := true;
    for P := 2,
             3 step 2 until 10 do
      begin;
        if PRIME[P] then for M := P  P step P until 10000 do
          PRIME[M] := false;
    end ;
    M := 0;
    for P := 2,
             3 step 2 until 10000 do
      begin;
        if PRIME[P] then begin;
            M := M + 1;
        end ;
    end ;
    NLCR;
    PRINTTEXT("number of primes below 100 000: ");
    ABSFIXT(5, 0, M);
end;