program tongcacsole;

uses crt;

var i, n:integer;

s: longint;

a: array[1..100] of integer;

begin

clrscr;

write ( ' hay nhap so phan tu cua day so, n= '); readln(n);

writeln( ' nhap cac phan tu cua day so: ');

for i := 1 to n do

begin

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

end;

for i := 1 to n do

if a[ i] mod 2 < > 0 then s := s + i;

writeln ( ' tong cac so le: ' , s);

readln

end.