Program Trolling;
   Uses crt;
       var s,s1:string;
           i,x,code,m:integer;
           a:array[1..100] of integer;
           b:array[1..100] of integer;
           c:array[1..100] of integer;
begin
   clrscr;
   writeln('introdu primulnr:'); readln(s);
   writeln('introdu al 2 nr:'); readln(s1);
     For i:=1 to length(s) do
       begin
        val(s[i],x,code);
          a[length(s)-i+1]:=x;
       end;
       writeln();
     For i:=1 to length(s1) do
        begin
         val(s1[i],x,code);
           b[length(s1)-i+1]:=x;
        end;
        writeln();
         If length(s)>=length(s1) then m:=length(s)
                                  else m:=length(s1);
          For i:=1 to m do begin
          c[i]:=a[i]+b[i];
          end;
           writeln('suma cifrelor este');
        For i:=1 to m do
          begin
          c[i+1]:=(c[i] div 10)+c[i+1];
          c[i]:=c[i] mod 10;
          end;
         If c[m+1]<>0 then
                For i:=m+1 downto 1 do
                    write(c[i])
                      else
                 For i:=m downto 1 do
                    write(c[i]);

     readln;
end.