var
  i, n, k, s, ne: integer;
  A: array [1..100] of integer;

begin
  writeln('Введите длину: ');
  readln(n);
  for i := 1 to n do
  begin
    write('A[', i, ']=');
    readln(A[i]);
  end;
  for i := 1 to n do
  begin
    if A[i] < 0 then
    begin
      s := s+A[i];
      ne:=ne+1;
      If ne=4 then
      break;
    end;
  end;
  Writeln('Сума первых 4 отрицательных элементов - ', s);
end.