Результат исполнения программы число 100, нужно найти какое число ввели

var a: array [1...8] of integer;
i, sun: integer;
begin
ReadIn (a[1]);
sum:=0;
for i :=2 to 8 do
a[i] := a[i-1]+3;
for i:=8 downto 1 do
sum:= sum + a[i];
writeln(sum);
end.

2______________?

2. Просто ответ не может быть меньше 20 символов, вот я и добавил __

Есть массив из 8 элементов. Вводится одно число - первый элемент массива. Далее расчитываются остальные элементы массива, каждый из которых больше предыдущего на 3. Так получается арифметическая прогрессия с шагом 3, с 8 элементами, неизвестным первым числом и суммой 100. Далее берем формулу суммы ариф.пр. S=n(a1+an)/2=n(2a1+d(n-1))/2 выражаем а1=(2S/n-d(n-1))/2, подставляем и получаем (2*100/8 - 3(8-1))/2=2. Ответ:2