Ejemplo de Algoritmo para efectuar una Potencia (PseInt)

Proceso Potencia
Definir potencia como real;
Definir i como entero;
Definir n,m como real;
potencia <- 1;
Escribir "Ingrese la base (entero)";
Leer n;

Escribir "Ingrese el exponente (Numero entero positivo mayor a cero)";
Leer m;

Para i <- 1 Hasta m con Paso 1 Hacer
potencia <- potencia*n;
FinPara
Escribir "Potencia igual a: ", potencia;
FinProceso