Составить программу и блок - схему к задаче: Вводится последовательность из N целых чисел. Найти сумму отрицательных.Пожалуйста помогите

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

не за что))

program al;var a:array[1..32000] of integer;n,s,i:integer;beginwriteln('n=');readln(n);writeln('vvedite massiv');for i:= 1 to n doreadln(a[i]);s:=0;for i := 1 to n doif a[i]<0 then s:=s+a[i];writeln('s=',s);readln;end.