Программа

VAR S,a1,denom,a:extended; {Сумма, первый член, знаменатель и член прогресси}
    i:integer; {счетчик цикла}
BEGIN
  Write('Введите первый член '); {Вывод приглашения}
  ReadLn(a1); {Ввод первого члена}
  Write('Введите знаменатель '); {Вывод приглашения}
  ReadLn(Denom); {Ввод знаменателя}
  S:=0; {Сброс суммы}
  a:=a1; {Начальная установка значения члена прогрессии}
  for i:=1 to 100 do {Цикл набора суммы}
  begin
    S:=S+a; {Набр суммы}
    a:=a*Denom; {Переопределение члена прогрессии}
  end;
  WriteLn('Сумма прогрессии ',S) {Вывод результата}
END.