Помогите написать блок схему и программу на языке Турбопаскаль к задаче, которая во...

Const
   N = 7;
Var
   B:array[1..N] of integer;
   i:integer;
   S,P:real;
Begin
Randomize;
Write('Исходный массив:');
S:=0;
P:=1;
For i:= 1 to N do
    Begin
    B[i]:=random(21)-10;
    Write(' ',B[i]);
    if B[i] < 0 then P:=P*B[i]
    else if B[i] > 0 then S:=S+B[i];
    End;
WriteLn;
WriteLn('S = ',S);
WriteLn('P = ',P);
For i:= 1 to N do
    if B[i] <> 0 then Write(B[i],' ');
ReadLn;
End.

Результат работы программы:

Исходный массив: -7 5 1 -1 0 6 4
S = 16
P = 7
-7 5 1 -1 6 4

Помогите написать блок схему и программу ** языке Турбопаскаль к задаче, которая во...