program im_14424;
uses crt;
var A: array[1..50] of integer;
S: integer;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 50 do
begin
write('Nhap vao cac phan tu: ');
readln(A[i]);
if (A[i]>0) and (A[i] mod 2 <> 0) then S:=S+A[i];
end;
write('Tong cac so le la: ',S);
readln
end.