Program a_b;
     var fi,fo:text;
         a, b,s : integer;
     begin
        assign(fo,'AB.out');
        assign(fi,'AB.in');
        reset(fi);
        while not eoln(fi) do begin
        read (fi,a,b);
                         end;
        close(fi);
        s:=a+b;
        rewrite(fo);
        write(fo,s);

        close (fo);
     end.