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

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.

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.