Рекурсия: вычисление суммы N первых членов арифметической прогрессии

Function Ar_n(a1, d: real; n:byte): real;
Begin
    If n = 1 Then Ar_n := a1
    Else Ar_n := Ar_n(a1, d, n — 1) + d
End;

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, XPMan, StdCtrls, Buttons;
type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   XPManifest1: TXPManifest;
   Label3: TLabel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
function Spr(a,h,k:integer):integer;
begin
if k=1 then Spr:=a
else Spr:=Spr(a+h,h,k-1)+a;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var N: integer;
 begin
 N:=strtoint(Edit1.Text);
 label2.Caption:=inttostr(Spr(n));
 end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.