Создать функцию вычисляющую куб введённого числа.

Var
 a:real;

function sqrsqr(a:real):real;
 begin
  sqrsqr:=a*a*a;
 end;

begin
read(a);
writeln(sqrsqr(a));
end.

//А вообще, в степени возводит функция power()