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

procedure pr(var a:real;p:real;n:integer;var sum:real);
begin
if n = 1 then sum:=a
else begin
  pr(a,p,n-1,sum);
  a:=a+p;
  sum:=sum+a;
end;
end;
 
var s,a,p:real;
    n:integer;
 
begin
write('Vvedite A0 : ');readln(a);
write('Vvedite p : ');readln(p);
write('Vvedite n : ');readln(n);
pr(a,p,n,s);
writeln('An = ',a:2:2);
writeln('Sum = ',s:2:2);
readln;
end.