Найти сумму членов арифметической прогрессии, если известны ее первый член, разность и число членов прогрессии. (программа на Паскаль)

Question

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

Answer 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.