with open('17-243.txt', 'r') as f: 
    file = list(map(int, f.readlines())) 
    # print(file) 
    sm = 0 
    k = 0 
    min_sum = 20000 
    for x in file: 
       if x % 35 == 0: 
          while x > 0: 
             sm += x % 10 
             x //= 10 
    for i in range(1, len(file)): 
       x2 = file 
       x1 = file[i - 1] 
       if x1 > sm and x2 % (16 ** 2) == 14 * 16 + 15 or\ 
          x2 > sm and x1 % (16 ** 2) == 14 * 16 + 15: 
          k += 1 
          # min_sum = min(min_sum, x1 + x2) 
          if min_sum > x1 + x2: 
             min_sum = x1 + x2 
 print(k, min_sum) 
 

 
 ### 
 var m:= ReadAllText('17-243.txt').ToIntegers; 
 var s35:= m.Where(x-> x mod 35 = 0).Select(x-> x.ToString.Sum(x-> x - '0')).Sum; 
 var n:= m.PairWise.Where(\(a,b)-> ((a>s35)and((b<s35)and(b mod 256 = 239))) 
                                  or(b>s35)and((a<s35)and(a mod 256 = 239))) 
 .Select(\(a,b)-> a+b); 
 Print(n.Count,N.Min) 
 

fin = open('17-243.txt', 'r') 
 k = 0 
 min_s = 0 
 s = 0 # сумма цифр чисел, кратных 35 
 for lin in fin: 
     n = int(lin) 
     if n % 35 == 0: 
         while n > 0: 
             s += n % 10 
             n = n // 10 
 fin.close() 
 print(s) 
 fin2 = open('17-243.txt', 'r') 
 while True: 
     p = fin2.readline() 
     if not p: break 
     n1 = int(p) 
     p = fin2.readline() 
     if not p: break 
     n2 = int(p) 
     if n1 > s and n2 <= s and n2 % 16 == 15 and 14 == (n2 // 16) % 16: 
         print(n1, n2) 
         k += 1 
         if (n1 + n2) < min_s or min_s == 0: 
             min_s = (n1 + n2) 
     if n2 > s and n1 <= s and n1 % 16 == 15 and 14 == (n1 // 16) % 16: 
         k += 1 
         print(n1, n2) 
         if (n1 + n2) < min_s or min_s == 0: 
             min_s = (n1 + n2) 
      
 print("k = {}, min_s = {}".format(k, min_s)) 
 fin2.close()