Lista George alg.23

algoritmo "numeroprimo"

var
Num,i,divisores:inteiro

inicio
escreval("digite um número")
leia(Num)
para i de Num ate 1 passo-1 faca
   se num mod i=0 entao
      escreval(i," é divisor de ",num)
      divisores<-divisores+1
   fimse
   se divisores=2 entao
      escreval("o número é primo")
   senao
      escreval("o número não é primo")
   fimse
fimpara
fimalgoritmo