program mn;
uses crt;
var k,i,l,c:integer;
s,ss:string;
begin
ClrScr;
Write('k:');
readln(k);
i:=101;
While length(s)<=k do
begin
str(i,ss);
s:=s+ss;
inc(i);
end;
Writeln(s);
Writeln(s[k]);
readln;
end.