program pvp;
var
  a : Array[1..9999] of integer;
  n, i, x, Sum1, Sum2, Sum3, max, pos : integer;
begin
  Write('Введите кол-во чисели - '); Readln(n);
  
  for i:=1 to N do
    a[i] := random(30)-10;
   
  for i:=1 to N do 
    Write(a[i],' ');
    
  Writeln();
  
  for i:=1 to N do begin
    if a[i] < 0 then
      sum1 := sum1 + a[i];
  end;
  
  for i:=1 to N do begin
    if a[i] mod 7 = 0 then
      inc(x);
  end;
  
  max := -20;
  for i:=1 to N do begin
    if a[i] > max then begin
      max := a[i];
      pos := i;
    end;
  end;
  
  for i:=pos+1 to N do 
    sum3 := sum3 + a[i];
  
  Writeln('Сумма отрицательных - ', sum1);
  Writeln('Кол-во кратных 7 - ', x);
  Writeln('Сумма элементов после максимального - ', sum3);    

end.