Вывести на экран все нечетные числа из последовательности чисел, вводимых с клавиатуры)) Паскаль)))

program zz1;

const n=5; / /задаем количество чисел в последовательности

var mas:array[1 ... n] of integer; / /заводим массив для хранения этих чисел

i:integer;

begin

for i:=1 to n do / /организуем цикл для ввода чисел последовательности с клавиатуры

read (mas[i]); / /записываем эти числа в массив

for i:=1 to n do / /перебираем числа последовательности в массиве

if mas[i] mod 2=1 then write (mas[i],' '); / /проверяем, если число не делится на два, то выводим его на экран в строчку через пробел

end.