Заполнить массив из 15 элементов числами от -10 до 10 , вывести в строчку и повторно вывсети в строчку заполнив элементы массива не больших 3 их кубами

Program n1;const n=15;var a: array[1..n] of integer;i: integer;beginrandomize;writeln('исходный массив:');for i:=1 to n dobegina[i]:=random(21)-10;write(a[i],' ');if a[i]<=3 then a[i]:=sqr(a[i])*a[i];end;writeln;writeln('полученный массив:');for i:=1 to n do write(a[i],' '); end.