uses crt;
var arr: array[1..100] of integer;
i, n: integer;
begin
clrscr;
write('Hay nhap do dai cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Hay nhap phan tu mang arr[', i, ']: ');
readln(arr[i]);
end;
writeln('Cac so le trong mang: ');
for i := 1 to n do
begin
if arr[i] mod 2 = 1 then
write(arr[i], ' ');
end;
readln;
end.