زنو (زبان برنامه‌نویسی) - ویکی‌پدیا، دانشنامهٔ آزاد

 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