uses crt;
var A : array [1 .. 100] of integer;
    i, n, s : integer;
begin
clrscr;
write('Nhap so luong phan tu = '); readln(n);
for i := 1 to n do
    begin
        write('Nhap phan tu thu ', i ,' = '); 
        readln(A[i]);
        if A[i] mod 2 <> 0 then s := s + A[i];
    end;
write('Day vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Tong cac so le = ', s);
readln
end.