Какое число было введено в данной программе, если результатом исполнения является число...

Question

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

Answer 1

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