Ejemplo calculando potencia Turbo pascal

En este ejemplo de pascal sacaremos la potencia la cual es el producto que resulta al multiplicar una cantidad o expresión por sí misma una o más veces. De la cual solo necesitaremos introducir la base y el exponente.

Codigo:

Program P3AE4 (input,output); 
uses
 crt; 
Var
 base,exponente,potencia: Integer;
Begin
     writeln('Ingrese base:');
  readln(base); 
        writeln('Ingrese exponente:');
  readln(exponente);   
  potencia:=1;
        while(exponente>0) do begin
        potencia:=potencia*base;
        exponente:=exponente-1;
           end;  
   
  writeln('La potencia es: ',potencia);
   


  readkey;
end.

Descargar código:

Link

Turbo Pascal