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)