Задача в паскале среди 10 введенных с клавиатуры чисел подсчитать количество отрицательных и произведение положительных чисел рассмотреть случай когда положительных чисел нет

program test;

var n, total, counter, i:integer;

begin

total:=1;

counter:=0;

for i:=1 to 10 do

begin

read (n) ;

if n < 0 then

counter:=counter+1

else if n > 0 then

total:=total*n;

end;

writeln ('The number of negative elements = ', counter) ;

if total = 1 then

writeln ('Positive numbers no')

else

writeln ('The product of positive numbers = ', total) ;

readln;

end.