program tong_day;

var A,B:array[1..1000] of integer;

     n,m,i,t1,t2:integer;

begin

       clrscr;

       write('Nhap n: ');   readln(n);

       t1:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,' cua day n so: ');  readln(A[i]);

                     t1:=t1+A[i];

              end;

       write('Nhap m: ');  readln(m);

       t2:=0;

       for i:=1 to m do

              begin

                     write('Nhap so thu ',i,' cua day m so: ');   readln(B[i]);

                     t2:=t2+B[i];

              end;

       writeln('Tong cua day n so la: ',t1);

       writeln('Tong cua day m so la: ',t2);

       if t1=t2 then write('=> Tong hai day bang nhau')

       else if t1>t2 then write('=> Tong day n so lon hon')

              else write('=> Tong day m so lon hon');

       readln;

end.

var a, b: array[1..250] of integer;

      n, m, i: byte;

      sn, sm: word;

Begin

     Sn:=0, sm:=0;

     Write('n = '); readln(n);

     For i:=1 to n do 

     Begin

         Write('a[', i, '] = '); readln(a[i]);

         Sn:=sn+a[i];

     End;

     Write('m = '); readln(m);

     For i:=1 to m do 

     Begin

         Write('b[', i, '] = '); readln(b[i]);

         Sm:=sm+b[i];

     End;

   If sn>sm

      then write('day a co tong lon hon')

   Else if sm>sn 

       Then write('day b co tong lon hon')

   Else write('hai day co tong bang nhau');

   Readln

 

End.