array Eratosthenes(int n) 
	array a
	int i, j
	
	a[1] = 0                          
	for i  in  2 .. n let a[i] = 1
	int p = 2
	while  (p * p) <=  n 
		j = p * p
		while j  <=  n 
			a[j] = 0
		let  j + p

		do
			p + 1 
		until a[p] = 1   
	/while
	print  a
	for int x in 0 .. n
		if a[x] echo " ", x
	/for	
	print
		
return a

Eratosthenes(50)