Exercicio 1 de funções

Program cubo ;
{Fazer um programa para ler um número e chamar uma função
que retorna o cubo do numero}

var
num:integer;    //variavel de entrada que recebe o numero digitado
r_cubo:real;    //variavel de saida que recebe a resposta da função


//inicio da função
function cubo(n:integer):real;
    begin
        cubo:= exp(3*ln(n));
    end;
//fim da função e incio do algoritmo

//se inicia pelo programa, pedindo pra digitar um número e depois lê esse número
 Begin
     writeln('Digite um número : ');
     readln(num);
        r_cubo:=cubo(num);  //a variavel recebe o resultado e chama a função
        writeln('O cubo no número : ',num, ' é ',r_cubo:1:2); // exibe o resultado
 End.