tyvj/tyvj1018.pas

   1 var
   2 n,k,i:longint;
   3 sum:qword;
   4 s:string;
   5
   6 begin
   7    readln(n,k);
   8    sum:=1;
   9    for i:=1 to n do
  10       sum:=sum*i;
  11    str(sum,s);
  12    while s[length(s)]='0' do delete(s,length(s),1);
  13    writeln(copy(s,length(s)-k+1,length(s)));
  14 end.