【NOIP2016提高A组模拟9.24】就是乘法

Description

这一天富爷又来找大头玩乘法游戏，然而不同于富爷的口算能力，大头只能列下了式子。第一题是432 × 5678：
４３２
５６７８
－－－－－－－
３４５６
３０２４
２５９２
２１６０
－－－－－－－
２４５２８９６
作为环保主义者的大头，认为最后一行的答案一定不能有任何的前导空格，当然了，对于某些行来说前导空格不能省。但是，珍惜资源的大头，认为任何一行都不能有任何的后导空格。作为完美主义者的大头，认为每一行的长度都应该和最后的答案行匹配。
啊，对了，有时大头还会遇到富爷的坑，假如第二个乘数有一个位置是0的话，你会发现一个0就是对应行的答案，那就把0挪到下一行，并省去这一行～～举个例子，对于200001 × 90040：

              ２００００１
                 ９００４０

－－－－－－－－－－－
８００００４０
１８００００９００
－－－－－－－－－－－
１８００８０９００４０

第四行的最右边是一个0，就是前一行（已省去）挪下来的，而第五行的最后两个0，则是由前两行（已省去）挪下来的。
最后一个坑，对于那些只有一行中间答案的，那么最后一部分也可以省略，
246 × 70：
２４６
７０
－－－－－
１７２２０
在富爷压迫下的人民，你们准备好了吗？

Input

输入文件有多组测试数据，每行包含两个正数a,b，保证a,b均不超过6位。
当a = b = 0时，该数据结束，该组并不需要输出。

Output

输出文件包含多行，输出格式具体看样例。

Sample Input

432 5678
200001 90040
246 70
0 0

Sample Output

Data Constraint

保证a,b均不超过6位

比赛时の想法

模拟，注意位置和要输出Problem x~
我好懒啊

贴代码

var
    s,ss1:array[0..100]of string;
    cy:array[0..100]of longint;
    i,j,k,l,x,cc,len,len1,kkk:longint;
    ss,s1,s2:string;
    n,m:int64;
begin
   // assign(output,'t1.out'); rewrite(output);
    while true do
    begin
        readln(n,m);
        if (n=0) and (m=0) then break;
        inc(kkk);
        writeln('Problem',' ',kkk);
        s:=ss1;
        str(n,s[1]);
        str(m,s[2]);
        str(n*m,s1);
        l:=length(s1);
        for i:=1 to l do s[3]:=s[3]+'-';
        while length(s[1])<length(s[3]) do s[1]:=' '+s[1];
        while length(s[2])<length(s[3]) do s[2]:=' '+s[2];
        l:=3;
        str(m,s1);
        ss:='';
        cc:=0;
        len:=length(s1);
        for i:=len downto 1 do
        begin
            x:=ord(s1[i])-48;
            if x=0 then ss:=ss+'0' else
            begin
                k:=x*n;
                str(k,s2);
                s2:=s2+ss;
                inc(l);
                cy[l]:=len-i-length(ss);
                ss:='';
                s[l]:=s2;
            end;
        end;
        if l>4 then
        begin
            inc(l);
            s[l]:=s[3];
            inc(l);
            str(n*m,s[l]);
            i:=4;
            len1:=length(s[3]);
            while s[i][1]<>'-' do
            begin
                len:=length(s[i])+cy[i];
                ss:='';
                for j:=len1 downto len+1 do ss:=ss+' ';
                s[i]:=ss+s[i];
                inc(i);
            end;
        end;
        for i:=1 to l do writeln(s[i]);
    end;
  //  close(output);
end.