divisão de um número por fatores primos

 Algoritmo "divisão de um número por fatores primos"

// Disciplina   : [Linguagem e Lógica de Programação]

Var

   // Seção de Declarações das variáveis

   n, r, d, q:inteiro

Inicio

   // Seção de Comandos, procedimento, funções, operadores, etc...

   escreva("Insira um número: ")

   leia(n)

   q <- n

   // encontrar o número primo

   repita

      d <- 1

      repita

         d <- d+1

         r <- q%d

      ate r = 0

      q <- q\d

      escreva(d)

   ate q = 1

Fimalgoritmo