Programación vfp 6.0: Suma de todos los números primos entre 1 y 100
Borrar "Los números primos entre 1 y 100 son:"
s=0
para i=2 a 100
flag=0
para j=2 a int(sqrt(i))
si i/j=int(i/j)
flag=1
salir
endif
endfor
if bandera=0
?i
s=s i
endif
endfor
endfor "Su suma es:", s
return