uses crt;
var arr: array[1..30] of integer;
    n, s1, s2, i: integer;
begin

// a.
    clrscr;
    write('Hay nhap do dai cua mang: ');
    readln(n);
    for i := 1 to n do
    begin
        write('Hay nhap phan tu arr[', i, ']: ');
        readln(arr[i]);
    end;
    writeln('Mang ban vua nhap: ');
    for i := 1 to n do
        write(arr[i], ' ');

// b.
    for i := 1 to n do
    begin
        if arr[i] mod 2 = 0 then
            s1 := s1 + arr[i];
        if arr[i] mod 2 = 1 then
            s2 := s2 + arr[i];
    end;
    writeln; writeln('Tong cac phan tu chan la: ', s1);
    writeln('Tong cac phan tu le la: ', s2);
    readln;
end.

program bai_giai;

uses crt;

var A:array[1..30] of integer;

      n,i,tc,tl:integer;

begin

     clrscr;

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

     for i:=1 to n do

           begin

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

           end;

     write('a. Mang vua nhap la: ');

     tc:=0;  tl:=0;

     for i:=1 to n do

           begin

                write(A[i],' ');

                if A[i] mod 2=0 then tc:=tc+A[i] else tl:=tl+A[i];

           end;

     writeln;

     writeln('b. Tong cac so chan la: ',tc);

     writeln('    Tong cac so le la: ',tl);

     readln;

end.