Какое число ввёл пользователь, если результатом исполнения программы является число 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