begin
  var n := 15;
  var a := Arr(7, 14, 21, 28, 35, 42, 49, 56, 63, 0);
  var s := 0;
  for var i := 0 to a.High do
    if (a[i] mod 2 = 1) and (a[i] mod 7 = 0) then
    begin
      s += 1;
      print(a[i])
    end;
  Print(Newline + s)
end.