Программа в  Pascal ABC:С клавиатуры вводится число n. Заполнить n элементов массива числами 2,4, 6, 8, 16, 32... и Вывести массив.Заранее спасибо)  

var     a: array of integer;     n, i: integer; begin     ReadLn(n);     a := new integer[n];         for i := 0 to a.Length-1 do     begin         if i = 0 then             a[i] := 2         else             a[i] := a[i - 1] * 2;                     Write(a[i], ' ');     end;    end.