Заполнить массив из 9 элементов степенями 2, начиная с 20=1. массив объявлен как var mas12: array [0..8] of integer. вывести значения элементов на экран в одну строку через пробел.

Var mas12:array[0..8] of integer;
   i:integer;
begin
mas12[0]:=1;
write('1');
for i:=1 to 8 do begin
  mas12[i]:=2*mas12[i-1];
  write(' ',mas12[i]);
end;
end.