написать рекурсивную функцию

[Vitalov1]

Здравствуйте! Не могу решить такую задачу: Даны первый член и разность арифметической прогрессии написать рекурсивную функцию для нахождения: а)энного члена прогрессии;б)суммы К первых членов прогрессии.Язык Delphi Помогите пожалуйста мне бы просто код задачи

[BDA]

а)

function An(a1, d: real; n: integer): real;
begin
  if n = 1 then
    result := a1
  else
    result := d + An(a1, d, n - 1);
end;

б)

function SumK(a1, d: real; k: integer): real;
begin
  if k = 1 then
    result := a1
  else
    result := An(a1, d, k) + SumK(a1, d, k - 1);
end;

Проверьте правильность счета.