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.