# Автор Ипатов Ю.А. 
 # Разбор: https://youtu.be/_PTjNaNqplQ 
  
 var 
   x, n, triygolniki,gipo,maxi: integer; 
   a1, b1, c1: integer; 
  
 function NumberOfTri(a, b, c: integer): integer; 
 begin 
   if (a * a + b * b = c * c) or 
      (b * b + c * c = a * a) or 
      (a * a + c * c = b * b) then 
   begin 
     result := 1; 
     maxi:=max(a,b,c); 
   end else 
   begin 
     result := 0; 
     maxi:=0; 
   end; 
 end; 
  
 begin 
   assign(input, '17-10.txt'); 
   reset(input); 
   readln(a1); 
   readln(b1); 
   n := 2; 
   while not eof(input) do 
   begin 
     n += 1; 
     readln(x); 
     c1 := x; 
     triygolniki += NumberOfTri(a1, b1, c1); 
     gipo+=maxi; 
     (a1,b1):=(b1,c1); 
   end; 
   triygolniki.Println; 
   gipo.Println; 
 end. 
 

 ## 
 var data := ReadLines('17-10.txt').Select(t -> t.ToInteger).ToArray; 
 var triples := data.NWise(3).Select(ar->ar.Order.ToArray) 
     .Where(ar->ar[0]*ar[0]+ar[1]*ar[1]=ar[2]*ar[2]); 
 triples.Count.Print;     
 triples.Sum(t->t[2]).Print;  

 
 F = open('17-10.txt') 
 k = s = 0 
 a = [] # массив точек 
 for x in F: 
   a.append(int(x)) 
 k = s = 0 
 for i in range(len(a)-2): 
   b = []# массив сторон треугольника 
   b.append(a[ i]) 
   b.append(a[i+1]) 
   b.append(a[i+2]) 
   b.sort() # сортируем, чтобы сначала были катеты 
   if b[0]**2 + b[1]**2 == b[2]**2: 
     k += 1 
     s += b[2] 
 print(k, s)