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.
