Ejercicio 11

Plantee e implemente un programa en PASCAL que calcule la potencia N-
ésima de un número entero introducido por el teclado para valores no negativos
de N.


PROGRAM enesima(input,output);
(*Programa que calcule la enesima potencia de un numero entero positivo introducido por el usuario*)
VAR
        n:integer;
        I:integer;
        resultado:real;

BEGIN
        write('Introduzca un numero entero que no sea negativo:');
        read(n);
        I:=1;
        resultado:=n;
        FOR I:=1 TO 8 DO
        resultado:=n*resultado;

        writeln('La enesima potencia del numero es:',resultado:3:1,'');
END.


Ejemplo de ejecución