Результат исполнения программы число 100, нужно найти какое число ввели var a: array 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.

Есть массив из 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