ciclo for
var=0
numero=0
potencia=0
inicio
imprimir("\ndigite numero :")
leer(numero)
desde i=1 hasta 5{potencia= numero^i
imprimir("\nla potencia es:", potencia)}
fin