program tju1018;
var a,b,c,d,e:array[1..5] of integer;
    f,g,h:integer;
begin
while not seekeof(input) do
  begin
   g:=0;
   while not seekeoln(input) do
   begin
   g:=g+1;
   read(a[g],b[g]);
   c[g]:=a[g]*(b[g] mod 10);
   d[g]:=a[g]*(b[g] div 10);
   e[g]:=a[g]*b[g];
   end;
  for h:=1 to g do
   begin
   writeln(a[g]:7);
   write('*');
   writeln(b[g]:6);
   for f:=1 to 7 do
    write('-');
   writeln;
   writeln(c[g]:7);
   writeln(d[g]:6);
   for f:=1 to 7 do
    write('-');
   writeln;
   writeln(e[g]:7);
   end;
  end;
end.
超时问题~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~