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

Program X;

var
k,n,i,j:longint;
mas:array[1..10000] of longint; 

begin

read(n);

for i:=1 to 10000 do 
   mas[i]:=0; 

mas[10000]:=1;

for j:=1 to n do 
   begin
    for i:=1 to 10000 do
      mas[i]:=mas[i]*j; 
    for i:=10000 downto 2 do
      begin   
      mas[i-1]:=mas[i-1]+mas[i]div 10;
      mas[i]:=mas[i]mod 10;
      end;
   end;

i:=1;

while mas[i]=0 do 
     i:=i+1;
for j:=i to 10000 do
    write(mas[j]) 
end.