program oken;

uses crt;

var a: array [1..10000] of longint;

      i,n:,tong,tong2:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

          if i mod 2 = 1 then tong2:=tong2+a[i];

           if a[i] mod 2=1 then tong:=tong+a[i];

    end;

writeln('tong phan tu co gia tri le: ',tong);

writeln('tong phan tu co vi tri la le: ',tong2);

readln;

end.

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,s,k:longint;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        begin
                write('a[',i,']: ');readln(a[i]);
        end;
        For i:=1 to n do
        begin
                If a[i] mod 2=1 then s:=s+a[i];
                If i mod 2=1 then k:=k+a[i];
        end;
        writeln('Tong cac phan tu co gia tri le la: ',s);
        writeln('Tong cac phan tu o vi tri le la: ',k);
        readln;
end.