Условие:
Результатом исполнения программы (см. рисунок ниже) является число 108. Пользователь при этом ввёл число ... (ответом является одно целое число).
```
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.
```

