Вычислить сумму и количество введённых чётных и нечётных чисел - PascalABC.NET

Формулировка задачи:

Условие: с клавиатуры последовательно вводятся числа формата integer до первого нуля.Необходимо вычислить сумму и количество введенных четных и нечетных чисел. алгоритм формата while Заранее благодарен PascalABC.Net

Решение задачи: «Вычислить сумму и количество введённых чётных и нечётных чисел»

Листинг программы

var
    countOdd, countEven: LongWord;
    sum: LongInt;
    number: Integer;
begin
    sum := 0; countOdd := 0; countEven := 0;
    Write('Input number: '); ReadLn(number);
    while (number <> 0) do
    begin
        Inc(sum, number);
        if (Odd(number))
        then
            Inc(countOdd)
        else
            Inc(countEven);
        Write('Input number: '); ReadLn(number);
    end;
    WriteLn('sum=', sum);
    WriteLn('Even numbers: ', countEven);
    Write('Odd numbers: ', countOdd);
end.

Объяснение кода листинга программы

Объявлены четыре переменные: countOdd и countEven типа LongWord, а sum и number типа LongInt.
Инициализированы суммы и счётчики в 0.
Выводится запрос на ввод первого числа.
Запускается цикл, который будет выполняться до тех пор, пока пользователь не введёт ноль.
В каждой итерации цикла число прибавляется к сумме.
Если число нечётное, то увеличивается счётчик countOdd, если чётное, то счётчик countEven.
После каждой итерации выводится запрос на ввод следующего числа.
По завершении цикла выводится итоговая сумма.
Выводятся значения счётчиков countEven и countOdd.