Тема: циклические алгоритмы; даны числа на отрезке от -5 до 5. найти сумму отрицательных чисел произведение положительных чисел данного отрезка.

Var sum,pr,i:integer;
Begin
pr:=1; 
   for i:=-5 to 5 do begin       
     if (i>0) then pr:=pr*i         
        else sum:=sum+i;           
            end; 
  Writeln('Сумма отрицательных чисел = ',sum);
  Writeln(''Произведение положительных чисел = ',pr);
End.