заполните числовой массив из 20 элементов таким образом,чтобы значения элементов были равны квадратом индекса (в

const razm = 20;

var
a: array [ 1..razm ] of integer;
i: integer;

begin

cls;
writeln ( 'Заполнение одномерного массива a квадратами индексов всех его элементов. ' );
for i := 1 to n do
begin
a [ i ] := i * i;
writeln ( 'a [', i, '] = ', a [ i ] );
end;
end.