4_23

algoritmo "4_23"
      declare n, i, p:inteiro;
      escreva("Informe um número inteiro: ");
      leia(n);
      i <- 1;
      p <- 0;
      se (n == 1) entao
           escreval("primo.");
      senao
           enquanto (i <= n) faca
                    se (resto(n, i) == 0) entao
                       p <- p + 1;
                    fimse
                    i <- i + 1;
           fimenquanto
           se (p == 2) entao
              escreval("Primo. ");
           senao
                escreval("Não primo. ");
           fimse
      fimse
fimalgoritmo