ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.