Задача в паскале среди 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.