var i,k,a,b:longint;
    s,t:string;
begin
  writeln('Введите к');
  readln(k);
  s:='1';
  a:=1;
  For i:=2 to k do Begin
    a:=a+b;
    str(a,t);
    s:=s+t;
    b:=a-b;
  End;
  writeln(s);
  writeln(s[k]);
  readln;
end.