Паскаль. Табулирование функции

[sunny5442]

Для каждого 0.116<=b1<=1.185 с шагом b=0.225 вычислить по 6 значений функции c=ln b1+xln b2 , где начальное значение b2=2.146 а шаг b2=-0.231

помогите составить программу

[ROMA2PVT]

Uses
   CRT;
var
   b1,x,c,b2:real;
begin
   clrscr;
   b2:=2.146;
   b1:=0.116;
     write('х:=');
       readln(x);
         while b1<=1.185 do
            begin
              c:=ln(b1)+x*ln(b2);
              writeln('C:=',c);
              b1:=b1+0.225;
              b2:=b2+(-0.231);
            end;
readkey;
end.

Вроди так.Хотя мог и ошибиться.Голова сегодня ваще не варит.

[sunny5442]

да спс, программа запускается!!!!!!
Вот только почему вместо 6 он вычисляет 5 значений функции?????