PRECISO DE EXPLICAÇÃO DESSE CODIGO, PRINCIPALMENTE A PARTE R <- R * A
Var

A,B,R :INTEIRO


Inicio

ESCREVA ("DIGITI A BASE:")
LEIA(A)
ESCREVA("DIGITI O EXPOENTE:")
LEIA(B)
R <- 1
PARA B DE 1 ATE B FACA
R <- R * A
FIMPARA
ESCREVA("O VALOR DA POTENCIA É =", R)