给几个pascal的程序

给几个pascal的程序

program gjdadd;var a,b,c:ansistring;i,la,lb,lc,jw,x:longint;t:char;beginassign(input,'in.txt');reset(input);assign(output,'out.txt');rewrite(output);c:='';readln(a);readln(b);la:=length(a);lb:=length(b);for i:=1 to la div 2 do begin t:=a[i]; a[i]:=a[la+1-i]; a[la+1-i]:=t; end;for i:=1 to lb div 2 do begin t:=b[i]; b[i]:=b[lb+1-i]; b[lb+1-i]:=t; end;i:=1;jw:=0;while (i<=la) or (i<=lb) do begin x:=jw+ord(a[i])-48+ord(b[i])-48; jw:=x div 10; c[i]:=chr(x mod 10); i:=i+1;end;if jw<>0 then begin lc:=i+1;c[lc]:=chr(jw);end else lc:=i;for i:=lc downto 1 do write(c[i]);close(input);close(output);end.