Процедуры и функции

[AlexProg]

Найти n-й член геометрической прогрессии, если известны первый член и знаменатель прогрессии.....ребят помогите доделать пожалуста.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   function an2(n:integer;a1,d:real):real;
 begin

  if n=1 then an:=a1
    else
    an:=an((n-1)*exp(q)),a1,q)+q;
    end;

end.