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

//PascalABC.NET 3.2 сборка 1318

Var
  n,i,flag:integer;
  function fact(n:integer):integer;
begin
  if n=0 then fact:=1 else fact:=fact(n-1)*n;
end;

  begin
readln(n);
n:=fact(n);
flag:=0;
for i:=1 to (n div 3)+2 do
  if i*(i+1)*(i+2)=n then
    begin
      flag:=1;
      writeln(n,'=',i,'*',i+1,'*',i+2);
    end;
if flag=0 then writeln('Невозможно');
end.

Пример ввода:
6
Пример вывода:
720=8*9*10

#include "iostream"
using namespace std;
int main(){
int Angle1= 0, Angle2 = 0, Angle3;
cin >> Angle1;
cin >> Angle2;
Angle3 = 180 - (Angle1 + Angle2);
if ((Angle1 == 90) | (Angle2 == 90) | (Angle3 == 90))
{
 cout << "Pryamougolniy" << endl;
 }
if ((Angle1 > 90) | (Angle2 > 90) | (Angle3 > 90))
 {
 cout << "Tupougolniy" << endl;
}
if ((Angle1 == Angle2) && (Angle2 == Angle3))
{
 cout << "Ravnostoronniy" << endl;
 }
if (((Angle1 == Angle2) & (Angle2 != Angle3)) | ((Angle1 == Angle3) & (Angle1 != Angle2)) | ((Angle2 == Angle3) & (Angle2 != Angle1)))
{
  cout << "Ravnobedrenniy" << endl;
 }
system("pause");
}

Существует 4 вида алгоритмов:

Линейный алгоритм -- это описание действий, которые выполняются однократно в заданном порядке. 

Циклический алгоритм -- это описание действий, которые повторяются указанное число раз или пока не выполнено заданное условие. (Перечень повторяющихся действий -- тело цикла)

Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо та, либо другая последовательность действий. 
Смешанный алгоритм --  это алгоритм, в котором могут соединиться разные виды алгоритмов. (Например, циклический и линейный)