Помогите дополнить задачу

[Driver_09]

Задача:
В течение месяца курс доллара падал. В первый день он составил а рублей. В каждый
следующий на 3% и ещё 0,1 руб. меньше. Каким будет курс доллара во 2.3,4,...n день?
Через сколько дней он будет ниже b рублей?

вот текст проги:
uses
SysUtils;

Var a:real;i,d:integer;
begin
writeln('Vvedite kurs dollara $');
readln(a);
writeln('Vvedite kol-vo dney');
readln(d);
for i:=2 to d do
begin
a:=a-0.1-(a/100)*3;
writeln('day:',i,', ','$=',a:0:2);
end;
readln;
end.

То есть, я написал прогу чтобы просто за заданное кол-во дней она считала падение доллара.
а вот чтобы за сколько дней курс будет ниже b рублей, я не могу додуматься...
Помогите кто чем может или подкиньте идеи)

[IT-man]

kd:=0;
while a>= b do begin
kd:=kd+1;
a:=a-0.1-(a/100)*3;
end;

[Dzmitry Loktseu]

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  B: Boolean;
  CurrCours, LessThan: Currency;
  NumDays, I, N: Integer;
begin
  try
    Write('dollar on the first day, rubles: ');
    ReadLn(CurrCours);
    Write('Number of days: ');
    ReadLn(NumDays);
    Write('Less than, rubles: ');
    ReadLn(LessThan);
    B := False;
    N := 0;
    for I := 2 to NumDays do
    begin
      CurrCours := CurrCours - ((CurrCours / 100) * 3) - 0.1;      
      if not B and (CurrCours < LessThan) then
      begin
        N := I;
        B := True;
      end;
    end;
    WriteLn(Format('After "%d" days dollar will be %f rubles.', [NumDays,
      CurrCours]));
    if N > 0 then
      WriteLn(Format('After %d days the dollar will be lower then %f rubles.',
        [N, LessThan]));
    ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

[Driver_09]

IT-man , Dzmitry Loktseu спасибо.
Только я при помощи IT-man намного проще прогу сделал)
Но огромное спасиб

[Driver_09]

IT-man , Dzmitry Loktseu а можете ещё дополнить прогу:
Используя оператор цикла, вычислить с заданной точностью ε приближенное значение
функции, указав количество элементов в вычисленной сумме, с использованием
рекуррентных формул, скобочных форм и/или дополнительных переменных по формуле S.
При составление программы считать, что точность достигнута, если |an |<ε .

uses
SysUtils;

var sum,an,x:real;n:integer;
begin
write('Vvedite X:');
readln(x);
sum:=0;
an:=1-((n*ln(-1)*n*n*ln(x))/x);
n:=2;
while (abs(an)>0.0001) do
begin
sum:=sum+an;
n:=n+1;
an:=an*((-n*x)/1-n);
end;
writeln('Summa ',n:3,'elementov=',an:0:5);
readln;
end.

Она почему-то считает только при х меньше 1.
больше ничего не считает.
Вроде рекуррентную формулу правильно высчитал.