algoritmo "verificar primo no vetor-visualg"

var
   v:vetor[1..5] de inteiro
   c,nump,b: inteiro
inicio
       b<-1
      para c<- 1 ate 5 faca
         escreva("informe o",c,"o. valor")
         leia(v[c])

      fimpara
      para c<- 1 ate 5 faca

         enquanto ( b<=v[c])faca

                 se ( v[c]%b=0)entao

                    nump<-nump+1

                 fimse
                escreva(b)
                 b<-b+1
        fimenquanto

      fimpara


fimalgoritmo