как записать такую маленькую формулу? в паскале 2*4*8

самое простое решение:
function func(num: integer): integer;
var i: integer;
begin
for i:= 1 to num do
if i*i*i = num then begin result := i; break; end;
end;