Найти сумму отрицательных, произведение положительных и количесво нулевых элементов в виде блоксхемы

123456789101112131415161718192021program test;var  a:array[0..15] of integer;  s,c,p:integer;  i:byte;begin  s:=0;c:=0;p:=1;  //Заполняем значениями  for i:=0 to 15 do   begin    readln(a[i]);    if a[i]0 then c:=c+1;    if a[i]0 then p:=p*a[i];   end;   writeln(Сумма:,s);  writeln(Количество:,c);  writeln(Произведение:,p);  readln(s);end.