type mang=array[1..100] of byte;
var a:mang;
n,i:byte;
procedure nhap;
begin
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
end;
procedure tinh;
var s:longint;
begin s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then s:=s+a[i];
write('tong cac so le la:',s);
end;
begin
write('nhap n:');readln(n);
nhap;
tinh;
readln;
end.