Ответ:

var

  a : integer;

  fac : BigInteger := 1;

begin

  readln(a);

  if a > 0 then for var i := 1 to a do fac *= i;

  writeln(a, '!=', fac);

end.

Объяснение: