Помогите пожалуйста . Дано целое число N(>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й:2,4,8,16.....

Сделал через динамический массив и без модуля Math
var i,n:integer;    a:array of real;
begin 
Readln(n); 
SetLength(a,n); 
for i:=0 to Length(a) do   
a[i]:=Exp(Ln(2)*i); 
for i:=0 to Length(a) do   
writeln(2^,i, = ,a[i]); 
Readln;
end.