В чем ошибка? В ответе выдает нули.

[Fatalita]

program n_8_5_v;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 var
   n , i: integer;
   b: array [1..100] of real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('n=');
  Readln(n);
  for i:=2 to n do
  begin
    b[1]:=1;
     b[i]:=b[i-1]*i;
  end;
     for i:=1 to n do
  Writeln('b[',i,']=',b[i]:10:2);
 Readln;
end.

[Stilet]

Вот что выдало мне:

n=5
b[1]= 1.00
b[2]= 2.00
b[3]= 6.00
b[4]= 24.00
b[5]= 120.00

Где нули? в дробном разделе?

[Fatalita]

О_О
Какого черта?
Минуту назад проверяла, выдавала одни нули. А теперь - работает правильно. Мистика.