Sieve of Eratosthenes - Pseudocode

Sieve(n)
//Eratosthenes'in Eleği'nin implementasyonu
//Input: n > 1 olan n tamsayısı
//Output: n'den küçük veya n e eşit asal sayılar dizisi
for p←2 to n do A[p]←p
for p←2 to floor(sqrt(n)) do 
    if A[p] != 0 //daha önceki döngü içerisinde p elenmemişse
        j ← p ∗ p
        while j ≤ n do
            A[j]←0 //j. elemanı elenmiş olarak işaretle
            j ←j + p
//A dizisindeki elenmemiş elemanları asal sayı olarak L dizisine at
i ←0
for p←2 to n do
    if A[p] != 0
        L[i]←A[p]
        i ←i + 1
return L