{дано нат. K. напечатать К-ю цифру последовательности 12345678910111213...,
в которой записаны подряд все натуральные числа}
program borlpasc;
var i,j,k,n,o:integer;
a,t:longint;
begin write('Введите k=');readln(k);
t:=0;i:=0;
repeat t:=t+1;
j:=t;
while j>0 do{считаем количество цифр в числе
и добавляем к общему количеству}
begin j:=j div 10;
i:=i+1;
{if i=k then o:=j mod 10;}
end;
until i>=k;
while i>=k do{возвращаемся по цифрам последнего числа
до нужной}
begin o:=t mod 10;
t:=t div 10;
i:=i-1;
end;
writeln('k-я цифра:',o)
end.