program pole;
uses crt;
const max_pola=100;
var i,n :integer;
a: array[1..max_pola]of integer;
begin
writeln('Zadaj pocet prvkov pola');
readln(n);
for i:=1 to n do
begin
write('Zadaj ',i,'. prvok: ');
readln(a[i]);
end;
writeln('Tu su z nich vsetky neparne:');
for i:=1 to n do
if a[i] mod 2 = 1 then writeln(a[i]);
readln;
end.