COSO1 Pascal

var kq:int64;
    test,t:longint;

procedure giai;
var s:ansistring;
    n,r,kq,x:int64;
    i:longint;
    p:array[0..10] of int64;
begin
    readln(s);
    n:=length(s);
    readln(r);
    p[0]:=1;
    for i:=1 to 10 do p[i]:=p[i-1]*r;
    kq:=0;
    for i:=1 to n do
    begin
      if s[i]>='A' then x:=ord(s[i])-55
      else x:=ord(s[i])-48;
      kq:=kq+x*p[n-i];
    end;
    writeln(kq);
end;

begin
   assign(input,'coso1.inp');reset(input);
   assign(output,'coso1.out');rewrite(output);
   readln(test);
   for t:=1 to test do
      giai;
end.