[Row]

Дано натуральное число n. Выяснить, можно ли представить n! в виде произведения трех последовательных целых чисел.

Вот мой код:

Код:

uses
  SysUtils; var n,i,f:integer; p:boolean;

begin
writeln('vvedite n');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
p:=false;
for i:=1 to n do
if i*(i+1)*(i+2)=f then
  begin
    p:=true;
    writeln(i,'*',i+1,'*',i+2,'=',f);
  end;
if (p=false) then writeln('Ne vozmozno');
readln;
end.

до 5 считает нормально, если ввести 6, выводит "невозможно", хотя факториал 6 равен 720 и его можно представить как 8*9*10.
Что тут не так?..
Заранее благодарен