Question

Заполнить массив A[N] кубами натуральных чисел. (N вводится с клавиатуры).

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrGen(ReadInteger, i -> i * i * i, 1);

 a.Println

end.