Найти сумму 10 членов арифметической прогрессии a,a+d,a+ а - первый член прогрессии,d - постоянное слагаемое, разность прогрессии.паскаль

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.