var a,b:longint;
    n:int64;
    s:string;
    i,j,l:byte;
begin
     write('Nhap so thu nhat: ');readln(a);
     write('Nhap so thu hai: ');readln(b);
     n:=a*b;
     str(n,s);
     l:=length(s)+1;
     writeln(a:l); writeln(' x'); writeln(b:l);
     for i:=1 to l do write('-'); writeln;
     j:=0;
     while b>0 do
     begin
        i:=b mod 10;
        writeln(i*a:l-j);
        b:=b div 10;
        inc(j);
     end;
     for i:=1 to l do write('-'); writeln;
     write(n:l);
     readln;
end.