Впервый час работы, рабочий изготавливает a деталей, за последующий час на d деталей больше, чем за предыдущий. разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.

Var a,d,k,i,ak,s:integer;
begin
writeln('a, d, k:');
readln(a,d,k);
s:=0; ak:=a-d;
for i:=1 to k do
 begin
 ak:=ak+d;
 s:=s+ak;
 end;
writeln('s = ',s);
end.

Пример:
a, d, k:
10 2 5
s = 70