numeros primos

codigo:

*Obtener si un numero es primo o no

Algoritmo
Var
n, aux: entero
primo: logico

inicio

leer (n)
aux := 2
primo := verdadero

mientras (aux <=n) y (primo) hacer
si n mod aux <> 0 entonces
aux:= aux + 1
si_no
primo:= falso
fin si
fin mientras
si primo entonces
escribir (“El número es primo”)
si_no
escribir (“El número no es primo”)
fin_si
fin