Знайти суму перших n членів арифметичної прогресії {an}, якщо відомі а1 і d. паскаль

Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
end.
.