Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A*D, A*D^2, A*D^3… — Pascal(Паскаль)

program Array4;
var
  a: array of real;
  i, n: integer;
  d: real;
begin
  WriteLn ('Количество членов прогрессии:');
  ReadLn (n);
  SetLength(a, n);
  WriteLn('Первый член прогрессии:');
  ReadLn (a[0]);
  WriteLn ('Знаменатель прогрессии:');
  ReadLn (d);
  WriteLn ('Прогрессия: ');
  Write (a[0]:5:2, ' ');
  for i := 1 to n - 1 do
  begin
    a[i] := a[0]*exp(ln(d)*i);
    Write (a[i]:5:2, ' ');
  end;
  WriteLn;
  ReadLn;
end.