var c:longint;
    k:char;
    x,m:real;
begin
   readln(c);
   readln(k);
   case k of
   '0':begin
          x:=c/1;
          x:=round(x);
          m:=x;
          if (m<1) then writeln('1')
          else writeln(m:2:0);
          end;
   '1':begin
          x:=c/10;
          x:=x+0.01;
          x:=round(x);
          m:=x*10;
           if (m<1) then writeln('10')
          else writeln(m:3:0);

          end;
   '2':begin
          x:=c/100;
          x:=x+0.01;
          x:=round(x);
          m:=x*100;
           if (m<1) then writeln('100')
          else writeln(m:4:0);
          end;
    '3':begin
          x:=c/1000;
          x:=x+0.01;
          x:=round(x);
          m:=x*1000;
           if (m<1) then writeln('1000')
          else writeln(m:5:0);

          end;
     '4':begin
          x:=c/10000;
          x:=x+0.01;
          x:=round(x);
          m:=x*10000;
           if (m<1) then writeln('10000')
          else writeln(m:6:0);
          end;
     '5':begin
          x:=c/100000;
          x:=x+0.01;
          x:=round(x);
          m:=x*100000;
           if (m<1) then writeln('100000')
          else writeln(m:7:0);

          end;
      '6':begin
          x:=c/1000000;
          x:=x+0.01;
          x:=round(x);
          m:=x*1000000;
           if (m<1) then writeln('1000000')
          else writeln(m:8:0);

          end;
       '7':begin
          x:=c/10000000;
          x:=x+0.01;
          x:=round(x);
          m:=x*10000000;
           if (m<1) then writeln('10000000')
          else writeln(m:9:0);

          end;
       '8':begin
          x:=c/100000000;
          x:=x+0.01;
          x:=round(x);
          m:=x*100000000;
           if (m<1) then writeln('10000000')
          else writeln(m:10:0);
          end;
        '9':begin
          x:=c/1000000000;
          x:=round(x);
          x:=x+0.01;
          m:=x*1000000000;
           if (m<1) then writeln('10000000')
          else writeln(m:11:0);

          end;
   end;

   readln;
end.