زنو (زبان برنامه‌نویسی)

 const N : int := 5000
 var a : array[N] of boolean

 program

    var i, j : int 

    init_a                          % initialize array

    for i := 2...floor ( N/2 ) do
        for j := 2...floor ( N/i ) do
            a[i*j] := false         % mark as not prime
        end for
    end for
    j := 0
    for i := 2...N do               % output results
        if a[i] then                % is prime
            put i : 6 ...
            incr j
            if (j mod 5) = 0 then   % start new line
                put ""
            end if
        end if
    end for

 end program

 % initialize the array
 procedure init_a

    var i : int
    for i := 1...N do
        a[i] := true
    end for

 end procedure

     2     3     5     7    11 
    13    17    19    23    29 
    31    37    41    43    47 
    53    59    61    67    71 
    73    79    83    89    97 
   101   103   107   109   113