{204)	(П. Финкель) В файле 17-204.txt содержится последовательность целых чисел,  
 которые принимают значения от -10000 до 10000 включительно. Тройка идущих  
 подряд чисел последовательности называется уникальной, если только второе из  
 них является положительным числом, заканчивающимся на 9. Определите количество  
 уникальных троек чисел, а затем – максимальную из всех сумм таких троек. 
 ОТВЕТ: 206 23427} 
 var a:text; 
 s1,s2,s3,s,c:integer; 
   begin 
     s:=-30000; 
     c:=0; 
     assign (a,'D:\17data(1)\17-204.txt'); 
     reset (a); 
     read (a,s1); 
     read (a,s2); 
     while not EOF(a) do begin 
       read (a,s3); 
       if (s2>0) and ((s2 mod 10) = 9)and (s1<0) and (s3<0) then begin 
         c:=c+1; 
         if s<(s1+s2+s3) then s:=s1+s2+s3; 
       end; 
       s1:=s2; 
       s2:=s3; 
     end; 
     close (a); 
     writeln (c,' ', s); 
   end.