Lista George alg.24

algoritmo "alg24"

var
num,i,j,divisor:inteiro
inicio
escreval("digite um número")
leia(num)
repita
   para j de num ate 1 passo-1 faca
      divisor<-0
      para i de j-1 ate 2 passo-1 faca
         se j mod i=0 entao
            divisor<-divisor+1
         fimse
      fimpara
      se (j mod i=0) e (divisor=0) entao
         escreval("O 1º número primo é ",j)
         interrompa
      fimse
   fimpara
ate (num mod j<>0) e (divisor=0)
fimalgoritmo