algoritmo "primo"
var
v, c:inteiro
p:logico
inicio
c <- 1
leia(v)
se(v%2=1)entao
enquanto (c <= v)faca
  se(v%2=0)ou(v%3=0)ou(v%5=0)ou(v%7=0)ou(v%11=0)ou(v%13=0)entao
     p <- falso
  senao
     p <- verdadeiro
  fimse
  c <- c + 1
  fimenquanto
  senao
  p <- falso
  fimse
  se(p = verdadeiro)ou(v=2)ou(v=3)ou(v=5)ou(v=7)ou(v=11)ou(v=13)entao
  escreva("primo")
  senao
  escreva("nao primo")
  fimse
  fimalgoritmo