Найти сумму 10 членов арифметической прогрессии A,A+D,A+2D,...,где А - первый член...

Question

Найти сумму 10 членов арифметической прогрессии A,A+D,A+2D,...,где А - первый член прогрессии,D - постоянное слагаемое, разность прогрессии.Паскаль

Answer 1

Var
 a,d,s,i:integer;
begin;
 readln(a);
 readln(d);
  for i:=0 to 9 do
   s:=s+a+d*i;
 writeln(s);
end.