Дана последовательность из 100 вещественных чисел. Определить , со скольких чётных чисел она начинается

[SnS]

здравствуйте, подскажите пожалуйста с задачей:Дана последовательность из 100 вещественных чисел. Определить , со скольких чётных чисел она начинается.

[Poma][a]

i ;= 1;

while (i < n) and (not Odd (a[i])) do
    Inc (i);

WriteLn (i-1);

[SnS]

спасибо большое