4_24

algoritmo "4_24"
      declare n, d, i:inteiro;
      escreva("Informe um número inteiro: ");
      leia(n);
      i <- 1;
      d <- 0;
      se (n == 2) entao
         escreval("Primo" );
      senao
           se (resto(n, 2) != 0) entao
              enquanto (i <= n) faca
                       se (resto(n, i) == 0) entao
                          d <- d + 1;
                       fimse
                       i <- i + 1;
              fimenquanto
              se (d == 2) entao
                 escreval("Primo");
              fimse
           fimse
      fimse
fimalgoritmo