Дан массив из 10 элементов получить новый массив каждый элемент которого в 2 раза больше предыдущего

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer; / / описываем целочисленный массив на n элементов

begin

m[1]:=12; / / задаем значение первого элемента

for i:=2 to n do / / получаем n-1 чисел увеличивая предыдущее в два раза и записываем полученное значение в массив

m[i]:=m[i-1] * 2;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.