program z8;
uses crt;
const n=10;
var a:array[1..n] of integer; k,i:integer;
s,h:string;
BEGIN
clrscr;
writeln('k');
readln(k);
for i:=1 to n do begin
a[i]:=i*i;
writeln(a[i]);
end;
s:='';
for i:=1 to n do
begin str(a[i],h);s:=s+h; end;
writeln(s);
writeln(s[k]);
readln;
END.