Минимум среди нечетных Опции

[asder]

Приветствую! Помогите решить простую задачу на паскале:
"Даны N целых чисел. Найти и вывести на экран минимальное среди нечётных чисел."

[asder]

Напишите, как эту задачу оформить в самом паскале

[DarkWishmaster]

Напишите, как эту задачу оформить в самом паскале

Uses Crt;
var N,min,number:integer;
Begin
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
while n>0 do
  begin
    readln(number);
      if odd(number) then  
         if number<min then min:=number;
    dec(n);
  end;
writeln(Min);
readln;
end.

[Lapp]

DarkWishmaster, три вопросика к тебе. Сумеешь правильно ответить - ставлю + в репу без разговоров (за помощь новичкам)). Первые два вопроса - в комменетах:

Uses Crt;     // зачем тут эта строка?
var N,min,number:integer;
Begin
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
while n>0 do
  begin
    readln(number);
      if odd(number) then              // почему эта строка сдвинута?
         if number<min then min:=number;
    dec(n);
  end;
writeln(Min);
readln;
end.

Последний вопрос такой:
Что выведет твоя прога в таком случае:
n=2
10
20
и в таком случае:
n=2
10
32767