Numeros Primos de 1 a 100 por Marcos Renêe Alves Sales

algoritmo "Numeros Primos de 1 a 100"
// Função :
// Autor : Marcos Renêe Alves Sales
// Data : 09/04/2012
// Seção de Declarações
var
numero, contador, incremento: inteiro
inicio
// Seção de Comandos
numero <- 2
incremento <- 1
enquanto (numero <= 100) faca
         enquanto (incremento <= numero) faca
                  se ((numero mod incremento) = 0) entao
                     contador <- contador + 1

                  fimse
                     incremento <- incremento + 1
         fimenquanto
         se (contador <= 2) entao
            escreval (numero)
         fimse
         contador <- 0
         incremento <- 1
         numero <- numero + 1
fimenquanto
fimalgoritmo