3.23 Faça um programa que mostre todos os primos entre 1 e N sendo N um número inteiro fornecido pelo usuário. O programa deverá mostrar também o número de divisões que ele executou para encontrar os números primos. Serão avaliados o funcionamento, o estilo e o número de testes (divisões) executados.

Algoritmo "Algoritmo 3.23"
Var
   // Seção de Declarações das variáveis
   i,numero,cont,x:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   Escreval("Digite um numero..")
   Escreval("Para saber quais numeros são primos neste intervalo")
   leia(numero)
   repita
      para i:=1 ate numero faca
         se numero mod i = 0 entao
            cont:=cont+1
            x:=x+1
         fimse
      fimpara
      se cont<=2 entao
         escreval("O numero ",numero, " é primo!")
      senao
         escreval("O numero ",numero, " não é primo!")
      fimse
      numero:=numero-1
      cont:=0
   ate numero=0
   escreval("O numero de divisões feitas foi: ",x)
Fimalgoritmo