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.