program SomaGrande; {$R+} const NumMaxAlg=100; type indices=0..NumMaxAlg; digitos=0..9; numGrande=array[indices] of digitos; var n, i : Integer; num1, num2, somaNum :numGrande; vaiUm:0..1; somaAlg:0..19; begin readLn(n); for i:=1 to n do read(num1[i]); readLn; for i:=1 to n do read(num2[i]); readLn; vaiUm:=0; for i:=n downto 1 do begin somaAlg:=num1[i]+num2[i]+vaiUm; somaNum[i]:=somaAlg mod 10; vaiUm:=somaAlg div 10 end; somaNum[0]:=vaiNum; for i:=0 to n do write(somaNum[i]); writeLn end.