elevar un numero a una potencia

Realizar el diagrama de flujo de un programa que permita  elevar un numero entero ingresado por teclado, a una potencia dada.

PSEUDOCÓDIGO
Proceso ElevarPotencia
Escribir "Ingrese un numero: ";
Leer num;
Escribir "Ingrese la potencia: ";
Leer pot; 
rpta <- num;
Mientras pot>1 Hacer
  rpta <- rpta * num;
  pot <- pot - 1;
FinMientras
Escribir "El resultado es: ", rpta ;
FinProceso