Algoritmo Numero_Primo
Var
Entero: i, n, cont
Inicio
Escribir ("Introduce un número")
Leer (n)
cont=0
para i=1 hasta n hacer
si n mod i = 0
cont = cont +1
finsi
finpara
si cont = 2 hacer
Escribir ("El numero es primo")
sino
Escribir ("el numero no es primo")
finsi
fin
