Найти количество неотрицательных и произведение положительных элементов массива - Pascal

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

Найти количество неотрицательных и произведение положительных элементов массива.

Решение задачи: «Найти количество неотрицательных и произведение положительных элементов массива»

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

var
    ar: Array[Byte] Of ShortInt;
    mult: Double;
    count, n, i: Byte;
begin
    repeat
        Write('Input n(>0)='); ReadLn(n);
    until (n > 0);
    count := 0; mult := 1;
    Randomize(); Write('Array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        if (ar[i] > 0)
        then
            mult := mult * ar[i];
        if (ar[i] < 0)
        then
            Inc(count);
    end;
    WriteLn; WriteLn('mult=', mult:0:0); Write('count=', count);
end.

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

Объявляются переменные:
- ar - массив байтовых элементов типа ShortInt
- mult - вещественное число двойной точности
- count, n, i - байтовые переменные
Вводится значение переменной n с клавиатуры, пока оно не будет больше 0.
Инициализируются переменные:
- count устанавливается равным 0
- mult устанавливается равным 1
Генерируется случайное значение для каждого элемента массива ar в пределах от -99 до 99, и эти значения выводятся на экран.
Для каждого элемента массива ar выполняются следующие операции:
- Если элемент больше 0, произведение mult умножается на текущий элемент массива.
- Если элемент меньше 0, количество count увеличивается на 1.
Выводится значение переменной mult с округлением до целого числа и значение переменной count.