Рекурсивная функция

[factor96]

Помогите пожалуйста решить задачу на паскале.
Очень нужно

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

[Stilet]

a)

func pro(x,y:integer):integer;
begin
 if x<y then pro:=x*pro(x+1) else pro:=x;
end;