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