Описать процедуру 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