Сформировать целочисленный массив N

[Wiedzzmin]

Необходимо сформировать целочисленный массив N, содержащий степени двойки от первой до n-ой (2, 4, 8, 16). Вывести в одну строку.
Заранее спасибо!

[ROMA2PVT]

Uses Crt;
var
  a:array [1..100] of longint;
  i,n:integer;

begin
clrscr;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=round(exp(i*ln(2)));
write(a[i]:2,' ');
end;
readkey;
end.