Даны первый член и разность арифметической прогрессии.Написать рекурсивную функцию для нахождения ;1)н-го члена прогрессии 2)суммы н первых членов прогрессии — Pascal(Паскаль)

uses crt;
function An(a,h,k:integer):integer;{нахождение n-го члена}
begin
if k=1 then An:=a
else An:=An(a,h,k-1)+h;
end;
function Spr(a,h,k:integer):integer;{нахождение суммы}
begin
if k=1 then Spr:=a
else Spr:=Spr(a+h,h,k-1)+a;
end;
var a1,d,n:integer;
begin
clrscr;
write('A1=');readln(a1);
write('Shag=');readln(d);
write('N=');readln(n);
writeln('An=',An(a1,d,n));
write('Summa=',Spr(a1,d,n));
readln
end.