Даны целое число k (1< =k< =252) и последовательность цифр , в которой выписаны подряд все натуральные числа от 50 до 250. нужно. определить k-ую цифру.

//PascalABC.Net 3.1 сборка 1200
var
    s: string;
    k, i: integer;

begin
    readln(k);
    
    for i := 50 to 250 do
        s := s + IntToStr(i);
    
    writeln(s[k]);
end.