program DifferentBasesMultiplication; uses crt; var infile,outfile:text; x:integer; n1,b1,n2,b2,bp:longint; pb10:longint; function convert10(number:longint;base:longint):longint; var multiplier:longint; digit:longint; total:longint; begin total:=0; multiplier:=1; while number > 0 do begin digit:=number mod 10; total:=total + digit*multiplier; multiplier:=multiplier*base; number := number div 10; end; convert10:=total; end; function convertbase(number:longint;base:longint):string; var remainder:longint; s:string; begin s:=''; while number > 0 do begin remainder := number mod base; s:=chr(remainder+48)+s; number := number div base; end; convertbase:=s; end; begin assign(infile,'DATA51.txt'); reset(infile); assign(outfile,'OUT51.txt'); rewrite(outfile); for x:=1 to 5 do begin readln(infile,n1,b1); readln(infile,n2,b2); readln(infile,bp); pb10:=convert10(n1,b1) * convert10(n2,b2); writeln(outfile,convertbase(pb10,bp)); end; close(infile); close(outfile); end.