Опять же задача в Паскале!

[d00ker]

Даны первый член и знаменатель геометрической прогрессии! написать рекурсивную функцию нахождения суммы n первых членов прогрессии!

[capta1n]

function sumGeo ( b1,q : real; n : word ) : real;
var
 m : real;
 i : word;
begin
  if n=1 then sumGeo:=b1
  else
  begin
    m:=1;
    for i:=1 to n do m:=m*q;
    sumGeo:=b1*q+sumGeo(b1,q,n-1)
  end
end;

[d00ker]

благодарю!=)