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

program task;var a: array [0..20] of integer; //20-максимальное количество чисел,можете менять на своё число//i,n:integer;beginwrite('Введите количество чисел : ');read(n);write('Введите первое число : ');read(a[1]);for i:=1 to n do  begina[i+1]:=a[i]-4;write(a[i]:5);end;end.