Можно ли представить число в виде произведения трёх последовательных натуральных чисел.

uses crt;
function Del(a:longint):longint;
var d:longint;
begin
d:=3;
while (a mod d<>0)and(d<=a div 3) do  d:=d+2;
if a mod d=0 then Del:=d else Del:=1;
end;
var n:longint;
begin
clrscr;
write('n=');
readln(n);
if Del(n)=1 then write('Число ',n,' не имеет нечетных делителей')
else write('Наименьший нечетный делитель=',Del(n));
readln
end.

uses crt;
function Posl(a:longint;var i:integer):boolean;
var k:longint;
begin
i:=1;
k:=6;
while k<a do
  begin
   i:=i+1;
   k:=i*(i+1)*(i+2);
  end;
if k=a then Posl:=true else Posl:=false;
end;
var n:longint;
    m:integer;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
if Posl(n,m) then write(n,'=',m,'*',m+1,'*',m+2)
else write('Число ',n,' нельзя представить в виде трех последовательных сомножителей');
readln
end.