program chi_phi;

uses crt;

var f,g:text;

     A:array[1..10000] of integer;

     n,i,t,u,v:integer;

begin

       Assign(f,CHIPHI.INP');   reset(f);

       Assign(g,'CHIPHI.OUT');       rewrite(g);

       readln(f,n);

       for i:=1 to n-1 do

              readln(f,A[i]);

       readln(f,u,v);

       t:=0;

       for i:=1 to n-1 do

              t:=t+A[i];

       writeln(g,t);

       t:=0;

       for i:=u to v-1 do

              t:=t+A[i];

       write(g,t);

       close(f); close(g);

end.

program File;
uses crt;
var    fi,fo:text;
        i,n,u,v,s,s1: integer;
        a:array[1..100000] of integer;
begin
      clrscr;
     
      assign(fi,'CHIPHI.INP');
     
      reset(fi);
     
         readln(fi,n);
     
         for i:=1 to n-1 do
     
            readln(fi,a[i]);
        
         read(fi,u,v);
     
      close(fi);
     
      assign(fo,'CHIPHI.OUT');
     
      rewrite(fo);
     
            for i:=1 to n-1 do
           
                s:=s+a[i];
               
            s1:=u+v;
           
         writeln(fo,s);
        
         write(fo,s1);
      
      close(fo);
                             
readln;
end.