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

Question

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

Answer 1

Var
 a:real;

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

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

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

Comments

А можно полную написанную программу через pascal abc?