Программа

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