Какое число было введено в данной программе, если результатом исполнения является число 100? var a: array [1..8] of integer; i, sum: integer; begin readln (a [1]); sum : =0; for i: =1 to 8 do a [i] : = a [i-1] + 3; for i : =8 downto 1 do sum: = sum + a [i]; writeln (sum) end.

Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.
Массив здесь описан
var a: array [1..8] of integer;
При выполнении цикла
for i:=1 to 8 do a [i] := a [i-1] + 3;
на первом шаге должна быть выполнена команда a[1]:=a[0]+3
Элемента a[0] в массиве нет. Даже если бы он был, то введенное значение a[1] было бы заменено новым значением a[0]+3