program az;
uses Crt;
var i,n,a : integer;
S : longint;
begin
clrscr;
S := 0;
Write('Nhap n = '); readln(n);
For i:=1 to n do
begin
Write('Nhap phan tu thu ',i,' la : '); readln(a);
If (a mod 2 <> 0) then S:=S + a;
end;
Write('Tong cac so le la : ',S);
readln
end.