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

К примеру так:

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 чётное


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