program kk;
var i,k,j,l,m,n,f:integer;
BEGIN
readln(k);
i:=0; j:=1; f:=1; m:=10; n:=1;
while k>n do
begin
dec(k,n);
f:=i+j; i:=j; j:=f;
while f div m<>0 do
begin
m:=m*10; inc(n);
end;
end;
while n>=k do
begin
m:=f mod 10;
f:=f div 10;
dec(n);
end;
writeln(m);
end.