我真的是新手啊，发个新手程序，我才五岁哦~
Program gaojingdu;
  var a,b:array[1..256]of integer;
      j,k:qword;
      cd1,cd2,n,i,t,c,f1,f2:integer;
 begin
     readln(j,k);
     while j<>0 do
       begin
           f1:=j mod 10;
           cd1:=cd1+1;
           i:=i+1;
           a[i]:=f1;
           j:=j div 10;
       end;
     while k<>0 do
       begin
           f2:=k mod 10;
           cd2:=cd2+1;
           t:=t+1;
           b[t]:=f2;
           k:=k div 10;
       end;
     if cd1>cd2 then c:=cd1
                else c:=cd2;
     for n:=1 to c do
       begin
           a[n]:=a[n]+b[n];
           if a[n]>10 then
                         begin
                             a[i]:=a[i]-10;
                             a[i+1]:=a[i+1]+1;
                         end;
       end;
     if a[c+1]=0 then c:=c-1;
     for n:=c+1 downto 1 do
         write(a[n]);
  end.