Дано натуральное число n, вычислить n! (0!=1, n!=n*(n-1)!). Составить программу на Pascal.

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.