Написать программу вычисления n!

program factorial; function fact (n: integer): longint; beginif (n=0) then fact: =1 else fact: =n*fact (n — 1); end; var n: integer; begin for n: =0 to 16 do writeln (n, '! =', fact (n); end.