заполните числовой массив из 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.