Decomposição de um número em fatores primos - Portugol

 programa

{

funcao inicio()

{

inteiro n, d, r

d = 1

r = 1

escreva("Escreva um número: ")

leia(n)

faca {

faca {

d = d + 1

r = n % d

} enquanto ( r != 0)

escreva(d+" ")

n = n /d

d = d - 1

} enquanto (n != 1)         

}

}