Напишите программу,которая выводит на экран таблицу степеней двойки(от нулевой до десятой)(в паскале)

Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.