program hw13;
uses crt;
var number,exponent:integer;
function PowerFn (number, exponent: integer): integer;
begin
PowerFn := Exp(exponent*Ln(number));
end;
begin
     clrscr;
     write('Enter number: ');
     readln(number);
     write('Enter exponent: ');
     readln(exponent);
     writeln(number,'^',exponent,' = ',PowerFn(number,exponent));
     readln;
end.

function PowerFn (number, exponent: integer): real;

PowerFn := Trunc( Exp(exponent*Ln(number)) )

PROGRAM x;
USES crt;
BEGIN
writeln(13**5); {show 13^5}
readkey
END.