Cоставить программу для вычисления суммы n чисел. Первое из этих чисел вводится, а каждое следующее число на 4 меньше предыдущего.

Program task;

var a: array [0 ... 20] of integer; / / 20-максимальное количество чисел, можете менять на своё число//

i, n:integer;

begin

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

read (n) ;

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

read (a[1]) ;

for i:=1 to n do begin

a[i+1]:=a[i]-4;

write (a[i]:5) ;

end;

end.