Какое число ввёл пользователь, если результатом исполнения программы является число 100?

var a: array [1 ... 8] of integer;

i, sum: integer;

begin

Readln (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, а потом считает сумму всех элементов.

по сути в конечной сумме введённое число складывается 8 раз, и 7 раз прибавляется 3 ка сложеная 1-7 раз.

х*8+3 * (1+2+3+4+5+6+7) = 100

8 х=100-3*28

х=16/8=2