Написать рекурсивную программу вычисления суммы n первых членов геометрической прогрессии — Pascal(Паскаль)

function Count_N(a, h ,k:integer): integer; 
if k=1 then Result := a
else Result := Count_N(a,h,k-1)*h;
end;
 
//**********************************************************
 
function SumN(a, h, k: integer): integer;
begin
if k=1 then Result := a
else Result := Count_N(a, h, k) + SumN(a, h, k-1);
end;
 
//**********************************************************
 
var first, step, n: integer;
 
begin
 
write('Первый элемент прогрессии: ');
readln(first);
write('Шаг прогрессии: ');
readln(step);
write('Количество членов: ');
readln(n);
writeln(n,'-ый член равен ', Count_N(first, step, n));
write('Сумма ',n,' членов равна', SumN(first, step, n));
readln
end.