Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов.

Program rappey;

const n=10;

var

a:array[1 ... n] of integer;

i, k:integer;

begin

for i:=1 to n do begin

a[i]:=random (10) ;

write (a[i],' ') ;

end;

writeln;

for i:=1 to n do begin

if a[i] mod 20 then begin

write (a[i],' ') ;

end;

end;

writeln;

end.