В последовательности из n целых чисел найти наибольшее нечетное число. Известо что есть хотя бы одно нечетное число.

Var

A, N, N0, M:integer;

Begin

Write ('N = ') ; ReadLn (N) ;

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

N0:=0;

Repeat

N0:=N0+1;

Read (M)

Until (N0<=N) or (M mod 2 0) ;

if N0N then

For N: = N0 to N-1 do

Begin

Read (A) ;

if (A>M) and (A mod 2 0) then M:=A;

End;

WriteLn (M)

End.