Aillianna

Verified answer

//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.