program SumSequence;
var
sum, num, count, countOver100: Integer;
begin
sum := 0;
num := 5;
count := 0;
countOver100 := 0;
while sum <= 1000 do
begin
sum := sum + num;
count := count + 1;
if sum > 100 then
countOver100 := countOver100 + 1;
num := num * 3;
end;
writeln('Количество чисел, которые надо сложить: ', count);
writeln('Количество чисел в сумме превышающих 100: ', countOver100);
end.

Эта программа находит количество чисел, которые надо сложить, чтобы сумма стала больше 1000, и количество чисел в сумме, превышающих 100.