La programación para generar todos los números primos dentro de 1000 requiere generar 10 números por línea. Y encuentra la suma de sus posiciones pares.

función f(a) 'Determina si es un número primo, si es así devuelve solo, si no devuelve 0

f=0

for i=2 a

si no (un mod i) entonces salga de la función

f=a

finalizar la función

función p (a()) 'Matriz de salida a() con 10 números en cada línea

para i=lbound(a) a ubound(a) paso 10

para j=1 a 10

imprimir a(i j);

siguiente j

imprimir

siguiente i

finalizar función

function s(a()) 'Encontrar la suma de la matriz a()

para i=lbound(a) a ubound(a)

s= s i

siguiente i

función final