Описать процедуру powera3(a, b), вычисляющую третью степень числа a и возвращающую ее в переменной b (a — входной, b — выходной параметр; оба параметра являются вещественными). с этой процедуры найти третьи степени пяти данных чисел

Procedure PowerA3(A: integer; Var B:longint);
Begin
B:=A*A*A;
End;
Var
   A,B,C,D,E:longint;
Begin
ReadLn(A,B,C,D,E);
PowerA3(A,A);
PowerA3(B,B);
PowerA3(C,C);
PowerA3(D,D);
PowerA3(E,E);
WriteLn(A,' ',B,' ',C,' ',D,' ',E)
End.

1 2 3 4 5
1 8 27 64 125