Ответ:

Точно не указано на каком языке, но у меня есть код на двух.

Pascal

program 11213

var

 arr: array of Integer;

 i, n: Integer;

begin

 Write('Enter the length of the array: ');

 Readln(n);

 SetLength(arr, n);

 // Заполняем массив квадратами индексов

 for i := 0 to n - 1 do

   arr[i] := i * i;

 // Выводим элементы массива столбиком

 for i := 0 to n - 1 do

   Writeln(arr[i]);

end.

Python

n = int(input("Enter the length of the array: "))

arr = [i * i for i in range(n)]

# Выводим элементы массива столбиком

for i in arr:

   print(i)

В обоих случаях мы сначала заполняем массив квадратами индексов, а затем выводим элементы массива по одному в столбик.