составить алгоритм на паскаль по нахождению произведение и количеству положительных чисел среди 100 введенных

[Alexander2810]

составить алгоритм на паскаль по нахождению произведение и количеству положительных чисел среди 100 введенных

[PathTheir]

var
        n, i, mult, ammount, num : LongInt;

begin
        ReadLn(n); {number of numbers}

        mult := 1;
        for i := 1 to n do begin
                Read(num);

                mult := mult * num;

                if num > 0 then
                        Inc(ammount);
        end;

        WriteLn('Ammount of positive = ', ammount, ' Multiplication = ', mult);
end.