Números primos (básico)

Proceso numerosprimos
Escribir "ingrese un numero"
Leer n
msg <- " su numero es primo"


Para i <- 2 Hasta n -1 Hacer
si n mod i = 0 Entonces
msg <- " su numero no es primo "
FinSi
FinPara
Escribir n,msg


FinProceso