Uese crt;
var a: array[1..100] ò integer;
n,i,s: integer;
begin
clrscr;
writeln('Nhap bao nhieu so nguyen:'); readln(n);
For i:= 1 to n do begin
writeln('Nhap so thu',i,':'); readln(a[i]);
end;
for i:= 1to n do
if a[i] mod 2 = 1 then
s:=s+a[i];
writeln('Tong cac so le la:',s);
readln;
end.