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

var

mas: array[1 ... 10] of real;

i, n: integer;

sum: real;

begin

for i:=1 to 10 do

begin

write ('Введите ', i,'-ое число: ');

readln (mas[i]);

end;

n:=0;

sum:=0;

/ / если число меньше нуля увеличиваем количество отрицательных - n

/ / иначе увеличиваем сумму положительных sum

for i:=1 to 10 do

if mas[i]<0 then n:=n+1

else sum:=sum+mas[i];

writeln ('Количество отрицательных чисел ', n);

/ / если сумма положительных чисел больше нуля выводим ее значение

/ / иначе выводим сообщение, что положительных чисел нет

if sum>0 then writeln ('Сумма положительных чисел равна ', sum)

else writeln ('Положительных чисел не было.');

end.