Помогите пожалуйста!!! Составить алгоритм

1. Татьяна Ларина, читая очередной фрацузский роман, подсчитала сумму номеров прочитаных страниц. Обозначив эту сумму Q. Напишите программу, определяющую номер последней прочитанной страницы.

2. Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день увеличивал дневную норму на 10% от нормы предыдущего дня. Через сколько денй спортсмен пробежит суммарный путь равный 100км. 

var i,n,q:integer;

Begin

  read(q);

  repeat

    i:=i+1;

    n:=n+i;

  until n>=q;

  writeln(i);

End.

var i,n,q:integer;

s,a:real;

Begin

  a:=10;

  repeat

    i:=i+1;

    s:=s+a;

    a:=a*0.1;

  until s>=100;

  writeln(i);

End.