{ N = 7;
  F = 1;
  while N > 0 do
  { F = F * N;
    N = N - 1 };
  print F }