Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа.

не очень понятно условие задачи, решил, как понял

Program qaf;

uses crt;

var x, y, z:integer;

begin

clrscr;

readln (X) ;

y:=0;

z:=0;

while x0 do begin

if odd (x) then inc (y) else

inc (z) ;

readln (x) ;

end;

writeln ('кол-во нечётных=', y,'кол-во чётных=', z) ;

readln;

end.