program pvp;
var
  n,i,x,TSum, sum : integer;
begin
  write('Введите кол-во чисел - '); readln(n);
  for i:=1 to N do begin
    write('Введите число - 4'); readln(x);
    if x mod 7 = 0 then
      TSum := TSum + x
    else sum := sum + x;
  end;
  writeln('Сумма 7-ок - ', TSum);
  Writeln('Общая сумма - ', sum);
end.