рекурсия(Найдите n членов последовательности)

[Artur1992]

Найдите n членов последовательности по заданным n, а1 и an, таких что ai=ai-1 + (i – 1)d. Через рекурсию. Помогите пожалуйста. ПАСКАЛЬ

[Artur1992]

uses crt;
function An(a,h,k:integer):integer;
begin
if k=1 then An:=a
else An:=An(a,h,k-1)+h;
end;
 var a1,d,n:integer;
begin
clrscr;
write('A1=');readln(a1);
write('Shag=');readln(d);
write('aN=');readln(n);
writeln('An=',An(a1,d,n));
readln
end.

Вот нашел код, тока там ai=a1 + (i – 1)d
И еще вопрос как найти n членов, арифмитической прогрессии через рекурсию.