Составьте блок-схему

[Alexander2810]

Составьте блок-схему алгоритму для нахождения: произведение и количество положительных чисел среди 100 введенных.
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.