求N!左边第二位的数字 pascal

var
i,j,n,l,k,m,n:longint;
a:string;
begin
n:=1;
readln(l);
for i:=2 to l do
n:=n*i;
str(n,a);
j:=length(a);
m:=1;
for i:=1 to (j-1) do
m:=m*10;
k:=k div m;
k:=k mod 10;
writeln(k);
readln
end.