program umnozhenie;

var
 x, k1, j, m1, ost1, otv : string;
 k,n,i, m, f, d, ost, err,kx : integer;
 p1, p2, p3, p4, p5 : integer;
 pl : array[1..5] of string;
begin
 Writeln('Enter k, x');
 Readln(k);
 Readln(x);
 str(k, k1);

 for i := length(k1) downto 1 do
 begin
  ost := 0;
  n := length(x);

  repeat
   val(x[n],f, err);
   val(k1[i],d, err);
   m := f*d+ost;
   ost := m div 10;
   m := m mod 10;
   str(m, m1);
   pl[i] := pl[i] + m1;
   n := n -1;
  until n = 0;

  if ost <> 0 then begin
   str(ost, ost1);
   pl[i] := pl[i] + ost1;
  end;

  insert(j, pl[i], 0);
  j := j + '0'
 end;

 ost := 0;

 for i := 1 to length(pl[1]) do
 begin
  val(pl[1][i],p1, err);
  val(pl[2][i],p2, err);
  val(pl[3][i],p3, err);
  val(pl[4][i],p4, err);
  val(pl[5][i],p5, err);
  kx := (p1 +p2 +p3 +p4+p5+ost) mod 10;
  ost := (p1+p2+p3+p4+p5) div 10;
  str(kx, x);
  insert(x,otv,0);
 end;

 if ost <> 0 then begin
  str(ost, ost1);
  insert(ost1, otv, 0);
 end;

 Writeln(otv);
 readln;
end.