Срочно напишите прогу

Ответ:

var

 b : array[1..8] of integer;

 i : byte;

 s : integer;

begin

 s := 0;

 for i := 1 to 8 do

 begin

   write('введите ', i, ' элемент массива: ');

   readln(b[i])

 end;  

 for i := 1 to 8 do

 begin    

   write(b[i]:5);

   if b[i] < 0 then s := s + b[i]

 end;

 writeln;

 writeln('сумма отрицательных элементов: ', s)

end.