http://noi.gnzx.gd.cn/html/2004-11/157.htm


program sum;
var s,s1,s2:string;
    a,b,c:array [1..260] of integer;
    i,l,k1,k2:integer;
begin
     write('input s1:');readln(s1);
     write('input s2:');readln(s2);
         l:=length(s1);
     k1:=260;
     for i:=l downto 1 do
     begin
          a[k1]:=ord(s1[i])-48;
          k1:=k1-1; 
     end; 
     k1:=k1+1;

    l:=length(s2);
     k2:=260;
     for i:=l downto 1 do
     begin
          b[k2]:=ord(s2[i])-48;
          k2:=k2-1; 
     end; 
     k2:=k2+1; 

    if k1>k2 then k:=k2 else k:=k1;
     y:=0;
     for i:=260 downto k do
     begin
         x:=a[i]+b[i]+y;
         c[i]:=x mod 10;
         y:=x div 10;
     end;
    if y<>0 then begin k:=k-1;c[k]:=y; 
end;
     for i:=k to 260 do write(c[i]);
     writeln; 
end. 

加分哦！！

[url＝http://upload.programfan.com/upfile/200607011358292.rar]这个可以用小数，负数[/url]

注：
打印用HPNToStr

用2个数组就行了
很简单的

如果只是俩正整数那么只这么7行就行了：
{ }  var
{1}    a,b:string;
{2}    i:integer;
{ }begin
{3}  readln(a);
{4}  readln(b);
{5}  if length(a)>length(b) then
       for i:=1 to length(a)-length(b) do insert('0',b,1)
       else for i:=1 to length(b)-length(a) do insert('0',a,1);
{6}  for i:=1 to length(a) do a[i]:=chr(ord(a[i])+ord(b[i])-ord('0'));
{7}  for i:=1 to length(a) do
       if (i=1) and (ord(a[i])-48+ord(a[i+1]>'9')>9)
         then write(ord(a[i])-48+ord(a[i+1]>'9'))
         else write((ord(a[i])-48+ord(a[i+1]>'9')) mod 10)
{ }end.