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

Набросал по быстрому поэтому если что вконце проверь

Спасибо,можеш описать программу каторую описал?

Program Task;Const N = 5;Var a: Array [1..N] of Integer;i, k: Integer;BeginWriteLn('Введите ', N, ' целых чисел через пробел');For i := 1 To N DoRead(a[i]);For i := 1 To N DoIf a[i] Mod 2 <> 0 ThenBeginWrite(a[i], ' ');End;WriteLn;ReadLn;End.