Определить цифру, стоящую на к-том месте последовательности.

Var
  k : integer;
begin
  read (k);
  if k mod 2 = 0 then
    writeln ((k div 2 - 1) mod 10)
  else writeln ((k div 2 - 1) div 10 + 1);
end.

begin
  var K := ReadInteger();
  var S : String := '';
  var N := 0;
  while S.Length < K do
    begin
      N += 1;
      S += N.ToString;
    end;
  WriteLn(S[K]);
end.

function get_digit(n: longint): char;
var
  i: longint;
  digits: byte;
  start_of, maximal: longint;
  num_of_n, num_of_digit: integer;
  s: string;
begin
  digits := 1;
  start_of := 0;
 
  maximal := 9;
  while n > digits * maximal + start_of do begin
    inc(digits); maximal := maximal * 10;
    inc(start_of, pred(digits) * (maximal div 10));
  end;
  maximal := maximal div 10;
 
  dec(n, start_of);
  num_of_n := (n div digits) + ord((n mod digits) <> 0);
  num_of_digit := n - digits * pred(num_of_n);
 
  n := 1;
  for i := digits downto 2 do n := n * 10;
  str(n + pred(num_of_n), s);
  get_digit := s[num_of_digit];
end;
begin
  writeln(get_digit(ReadInteger()));
end.

var
s,k,a:integer;
b,d:string;
begin
readln(k);
while s<k do
begin
inc(a);
str(a,b);
s:=s+length(b);
d:=d+b;
end;
writeln(d[k]);
end.

var k : integer;
begin
k := k mod 10
write(k)
end;