{$codepage UTF8} VAR r,expp,n:Double; base,exponente:integer; BEGIN Write('Ingrese un exponente para potenciar el numero neperiano :');Readln(expp); r:=Exp(expp); Writeln('La potencia del numero Neperiano elevado a ',expp:5:3,' es : ',r:5:3); Write('Ingrese un numero para calcular su logaritmmo neperiano : ');Readln(n); r:=LN(n); Writeln('Su logaritmo Neperiano es : ',r:5:3); Write('Ingrese Base : ');Readln(base); Write('Ingrese Exponente : ');Readln(exponente); r:=Exp(LN(base)*exponente); Writeln(base,'elevado a ',exponente,' es ',r:5:3); Readln END.