Algoritmo "07_07b Demonstra sem uso do comando Interrompa"
// Algoritmo de verificação de número primo
// Versão sem o uso do comando interrompa
// Aversão 07_07B utiliza esse mesmo código, com o uso do "Interrompa",
// para que o aluno verifique a diferença de performance entre eles.
Var
      numero, contador, resto: inteiro
      EhPrimo: logico
Inicio

      EhPrimo <- Verdadeiro     // todo número é primo até prova em contrário
      Escreva("Digite um número para checar se é primo:")
      Leia(numero)
      Para contador de 2 até numero-1 faça
            resto <- numero % contador   // verifica o resto da divisão
            Se resto = 0 então         // verifica se resto zero, divisão exata
                   EhPrimo <- Falso
                   // Sem o comando Interrompa
            FimSe
       FimPara

      Se EhPrimo = Verdadeiro então
             Escreva(numero, " é primo")
       Senão
           Escreva(numero, " não é primo")
      FimSe
      
FimAlgoritmo

// Comentário adicional: quando empregar variáveis tome cuidado com
// acentuação: uma variável "número" é diferente de "numero"
