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