uses crt;
var A:array[1..1000] of integer;
    N,i,tong:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 1 then tong:=tong+A[i];
   end;
   writeln;
   for i:=1 to N do if A[i] mod 2 = 1 then write(A[i]:4);
   writeln;
   write('Tong cac so le la: ',tong);
   readln
end.