Заполните массив размером из n элементов квадратами индексов массива формат входных данных целое число n от 1 до 1000 – размер массива. формат выходных данных через пробел вывести квадраты индексов массива пример входные данные выходные данные 5 0 1 4 9 16 нужно написать код.
begin
var a := ArrGen(ReadInteger('n='), t -> t * t);
a.Println;
end.
n= 100 1 4 9 16 25 36 49 64 81