8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / ADDITION05

program addition05;
var
n,i,m,del,l:byte;
a,b,c,d:string;
buf1,buf2,buf,q:integer;
k:array[1..51] of byte;
begin
readln(a);
n:=length(a);
readln(b);
m:=length(b);
if length(a)<length(b)
then l:=length(b)
else l:=length(a);
i:=1;
repeat
c[i]:=a[n];
n:=pred(n);
i:=i+1;
until i>length(a);
i:=1;
repeat
d[i]:=b[m];
m:=pred(m);
i:=i+1;
until i>length(b);
i:=1;
del:=0;
repeat
val(c[i],buf1,q);
val(d[i],buf2,q);
buf:=buf1+buf2+del;
if buf>=10
then begin k[i]:=buf-10; del:=1; end
else begin k[i]:=buf; del:=0; end;
i:=succ(i);
until i>l+1;
if k[l+1]=0 then
for i:=l downto 1 do Write(k[i])
else for i:=l+1 downto 1 do Write(k[i]); Readln;
end.