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