Computação TOP10

Faça uma função que calcule a potência de um número. Crie um programa que leia a base e o expoente, e utilize a função para mostrar o resultado.

resultado:

program exe2;

var

  num, e, vlr: real;

  function cal(a,b: real):real;

  var

    res: real;

    begin

       cal:= exp(b*ln(a));      

    end; 

begin

  write ('digite o numero: ');

  readln (num);

  write ('digite o expoente: ');

  readln(e);

  vlr := cal(num,e);

  write ('o valor é: ', vlr:5:2);

end.