HDU 1002 A + B Problem II

 1 var a,b:ansistring;
 2  c,d,e:array[1..1010] of integer;
 3  n,m:int64;
 4  x,ii:longint;
 5  bo:boolean;
 6    j,i:integer;
 7    begin
 8      readln(x);
 9      for ii:=1 to x do
10      begin
11      fillchar(e,sizeof(e),0);
12      fillchar(c,sizeof(c),0);
13      fillchar(d,sizeof(d),0);
14      readln(b);
15      bo:=false;
16      n:=pos(‘ ‘,b);
17      a:=copy(b,1,n-1);
18      delete(b,1,n);
19      m:=length(a);
20      n:=length(b);
21      if ii<>1 then
22      writeln;
23      write(‘Case ‘);
24      write(ii);
25      writeln(‘:‘);
26      write(a);
27      write(‘ + ‘);
28      write(b);
29      write(‘ = ‘);
30      if n>=m then j:=n else j:=m;
31      for i:=m downto 1 do
32      begin
33      val(a[i],c[m+1-i]);
34      end;
35       for i:= n downto 1 do
36       begin
37        val(b[i],d[n+1-i]);
38       end;
39         for i:=1 to j do
40         begin
41         e[i]:=c[i]+d[i]+e[i];
42 
43         e[i+1]:=e[i] div 10 +e[i+1];
44           e[i]:=e[i] mod 10 ;
45         end;
46         if e[j+1]=0 then dec(j);
47         i:=j+1;
48         while (i>0)do
49         begin
50         if (e[i]<>0) then
51         begin
52         write(e[i]);
53         bo:=true;
54                 dec(i);
55         break;
56         end;
57         dec(i);
58         end;
59         while (i>0)do
60         begin
61         write(e[i]);
62         dec(i);
63         end;
64         if not bo
65         then write(0);
66         writeln;
67        end;
68      end.