Как найти в Паскале нечётные числа среди введённых?

Например так:

Var

A, N:integer;

Begin

WriteLn ('Введите кол-во чисел') ;

ReadLn (N) ;

WriteLn ('Введите сами числа') ;

For N: = 1 to N do

Begin

Read (A) ;

if A mod 2 = 0 then WriteLn (A,' чётное')

else WriteLn (A,' нечётное')

End;

End.

Пример ввода-вывода:

Введите кол-во чисел

4

Введите сами числа

1 2 3 4

1 нечётное

2 чётное

3 нечётное

4 чётное

Вообще, чётность определяется по остатку деления на два: остаток равен нулю - значит число чётное, единице - нечётное.