program Nfact;
 var N, K, i:longint;
     S:string;
     R:longint;
 begin
  Read(N, s);
  K:=Length(S)-1;
  R:=N;
  i:=1;
  while (N-i*k)>(N mod k) do
   begin
    R:=R*(N-i*k);
    inc(i);
   end;
  if N mod k = 0 then R:=R*K
                 else R:=R*(n mod k);
  Writeln(R);
 end.

Please, help me. May be i can't understand smth?