Задача по паскалю

[DarknooB]

Плиз напишите полное решение задачи а то я в этом не разбираюсь(((.....дано 5 чисел найти сумму положительных и произведение отрицательных.Заранее благодарен

[GetMax]

Var
  Mas:Array[1..5] of Integer;
  I:Byte;
  Sum,Proizv:Integer;
Begin
   Randomize;
   For i:=1 to 5 do
   Begin
      Mas[i]:=-20+Random(50);
      Writeln(Mas[i]:3)
   End;
   Sum:=0;
   Proizv:=1;
   For i:=1 to 5 do
   Begin
      If Mas[i] < 0 then Proizv:=Proizv*Mas[i]
      Else
      If Mas[i] > 0 then Sum:=Sum+Mas[i]
  End;
  Writeln('Summa = ',Sum);
  Writeln('Proizvedenie = ',Proizv);
  Readln
End.

[DarknooB]

спасибо большое)!