[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

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;
i:=1;
while (i*(i+1)*(i+2))<=f do
begin
  if i*(i+1)*(i+2)=f then
  begin
    p:=true;
    writeln(i,'*',i+1,'*',i+2,'=',f);
  end;
  Inc(i);
end;
if (p=false) then writeln('Ne vozmozno');
readln;
end.