Cod sursa(job #283687)
var a,b:string;
f,g:text;
function adunare(x,y:string):string;
var m,n,er,r,t,s:integer;
k,s1,i,ii:string;
begin
r:=0;s:=0;t:=0;m:=0;n:=0; s1:='';
repeat
s:=0;
i:=copy(x,length(x),1);
ii:=copy(y,length(y),1);
val(i,m,er);
val(ii,n,er);
t:=m+n;
if t+r<10 then begin
s:=t+r;
r:=0;
end;
if t+r>=10 then begin
s:=(t+r) mod 10;
r:=(t+r) div 10;
end;
delete(x,length(x),1);
delete(y,length(y),1);
str(s,k);
s1:=(k+s1);
until (x='') and (y='');
adunare:=s1;
end;
begin
assign(f,'adunare.in'); reset(f);
assign(g,'adunare.out');rewrite(g);
readln(f,a);
read(f,b);
write(g,adunare(a,b));
close(f); close(g);
end.