Réponse:  

function cube (n : integer) : integer;     begin       cube := (n * n) * n     end;