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

//PascalABC.Net 3.1 сборка 1200var    s: string;    k, i: integer;begin    readln(k);        for i := 50 to 250 do        s := s + IntToStr(i);        writeln(s[k]);end.