var
  j:int64
  i,a:integer;
begin
  a:=15;  //будем считать произведение 15 чисел
  j:=1
  for i:=1 to a do
    j:=j*i;
end;