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