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

Var  a:real; function sqrsqr(a:real):real;  begin   sqrsqr:=a*a*a;  end; begin read(a); writeln(sqrsqr(a)); end. //А вообще, в степени возводит функция power()