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

Например так: 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 чётное Вообще, чётность определяется по остатку деления на два: остаток равен нулю - значит число чётное, единице - нечётное.