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

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

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.