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

Предыдущий
вопрос Следующий
вопрос

program OddAfterEven;
var
num, prevNum: integer;
count: integer;
begin
count := 0;
prevNum := -1;
repeat
write('Enter a natural number (0 to exit): ');
readln(num);
if (num mod 2 = 0) and (prevNum mod 2 <> 0) then
count := count + 1;
prevNum := num;
until num = 0;
writeln('Count of odd numbers after even numbers: ', count);
end.