Программа на pascal. вводится последовательность натуральных чисел пока не вводится число 0. вывести сколько раз в последовательности за четным числом идет нечетное

begin

 var БылЧет := False;

 var Число: integer;

 var Счетчик := 0;

 while True do

 begin

   Read(Число);

   if число = 0 then break;

   var ВведеноНечетное := Число.IsOdd;

   if БылЧет and ВведеноНечетное then Inc(Счетчик);

   БылЧет := not ВведеноНечетное

 end;

 Println(Счетчик)

end.

-27 42 -19 -2 -42 12 45 39 -27 29 3 -17 -14 -25 -26 41 21 -13 -6 0

4