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