Отыскать сумму членов арифметической прогрессии, если известны ее 1-ый член, разность

program arsuma;
var a1,an,d,Sum:real;
n:integer;
begin
writeln (vvedite pervyy chlen);
readln (a1);
writeln (vvedite raznost (a ne znamenatel))));
readln (d);
writeln (vvedite kolichestvo chlenov);
readln (n);
vychislenie n-nnogo chlena
an:=a1+(n-1)*d;
vychislenie summy
Sum:=(a1+an)*n/2;
writeln (summa =,Sum:3:3);
readln
end.