Что надо сделать?! Не совсем понятно
Промежуточный итог входит <span>в список или базу данных. Обычно проще создать список с </span>промежуточными<span> итогами, используя команду </span>Итоги<span> в меню Данные. Но если список с </span>промежуточными<span> итогами уже создан, его можно модифицировать, редактируя формулу с функцией </span>
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.