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

Program SAP;

var

S, d: integer;

i, N: byte;

a: array[1 ... 255] of integer;

begin

write ('Введите первый член арифметической прогрессии: ') ;

readln (a[1]) ;

write ('Введите разность арифметической прогрессии: ') ;

readln (d) ;

write ('Введите количество членов арифметической прогрессии: ') ;

readln (N) ;

for i: = 2 to N do begin

a[i]: = a[1] + (i - 1) * d;

S: = S + a[i]

end;

writeln ('Сумма членов арифметической прогрессии: ', S) ;

end.

Var a, b, c, k:real;

begin;

write ('Введите первое число прогрессии:') ;

readln (a) ;

write ('Введите разность прогрессии:') ;

readln (b) ;

write ('Введите число членов прогрессии:') ;

readln (c) ;

k: = ((2*a+b * (c-1)) / 2) * c;

writeln (k) ;

end.