Даны целое число k (1<=k<=252) и последовательность цифр 505152....250, в которой выписаны подряд все натуральные числа от 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.