задачa с циклами в Pascal

[Vero]

Добрый день! Сидела 2 вечера над задачей, так к ничему продуктивному не пришла. Пожалуйста, помогите, кто может.
Условие: Начав тренировки, в первый день спортсмен пробежал N км. Каждый последуюший день он увеличивал свою норму на 10% от нормы предыдушего дня. Через сколько дней спортсмен пробежит марафон (42.195 км)? Величину N ввести.
P.S. Марафон хотя бы 42.195, то есть может быть и больше.

[Stilet]

var n:Double;i:integer;
begin
 n:=2;i:=1;
 while n<42.195 do begin
  n:=n+n/100*10;inc(i);
 end;
write(i);readln;
end;

Не проверял. Но примерно такж

[Mad_Cat]

s:=0;
i:=0;
readln(n);
while s<=42.195 do begin
inc(i);
s:=s+n;
n:=n*1.1;
end;
writeln(i);

[Vero]

Спасибо. Буду пробывать