var n1,n2,sum,i: integer;

begin

write ('Введите n1 и n2: ');

read (n1,n2);

sum:=0;

for i:= n1 to n2 do 

if i<0 then sum:=sum+i;

writeln ('Сумма отрицательных чисел в ряду = ',sum);

end.