помогите найти хотя бы похожие задачи на сумму рядов. Опции

[inomarka]

я искала у вас в поисковике и в faq, но там не было ничего подходящего. были задачи на сумму рядов, но другого рода. плиз, дайте ссылку на ПОХОЖУЮ задачу или помогите решить эту!

получить s=2+4+8+... суммировать до тех пор, пока сумма не превысит 10000. вывести на экран значение суммы, последнего слагаемого и номер последнего слагаемого.
ну пожалуйста, ПОМОГИТЕ!!!!

[klem4]

var
  s, t, count: Integer;

begin
  s := 0;
  t := 2;

  repeat
    s := s + t;
    t := t * 2;
    count := count + 1;
  until s > 10000;

  writeln('s = ', s, ' last = ', t div 2 , ' count = ', count);
end.