uses crt;
 var  m : array[1..100] of longint ;
 tong, i, n : longint ;
  begin
   clrscr;
    write('Nhap n: ');
     readln(n);
     i := 1 ;
    while i<=n do 
     begin
     write('Nhap phan tu thu ',i,' co gia tri la: ');
    readln(m[i]);
     if m[i] mod 2 <> 0 then tong := tong + m[i];
     i := i + 1 ;
      end ;
     writeln('Tong cac so le la: ',Tong);
      end.

program tinh_tong;

uses crt;

var M : array [1 .. 100] of integer;

i, n, tong : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

tong := 0; i := 1;

while i <= n do

    begin

        read(M[i]);

        if M[i] mod 2 <> 0 then

            tong := tong + M[i];

        i := i + 1;

    end;

write('Tong so le = ', tong);

readln

end.