a=[] 
 for i in range(2,50000): 
     k=True 
     for j in range(2,i//2+1): 
         if i%j==0: 
             k=False 
             break 
     if k==True: 
         a.append(i) 
 count=0 
 maximum=0 
 k=[] 
 n=1 
 for i in range(105673,220784): 
     for elem in a: 
         if i%elem==0: 
             k.append(elem) 
             n=n*elem 
             if len(k)==3: 
                 if n==i: 
                     count += 1 
                     if i > maximum: 
                         maximum = i 
                 break 
     k=[] 
     n=1 
 print(count,maximum)

var d,kpd,count,maxx:integer; 
 function prost(d:integer):Boolean; 
   var j:integer; flag:boolean; 
 begin 
   j:=2; flag:=TRUE; 
   While (j*j<=d) and flag do  
     if d mod j=0 then flag:=FALSE else j:=j+1; 
   prost:=flag   
 end; 
  
 BEGIN 
   count:=0; 
   for var n:=125697 to 190234 do 
   begin 
     if n mod 1000=0 then write('.'); 
     kpd:=0; d:=2; {kpd - кол. простых делителей числа n} 
     while d<=(n div 2) do  {проверяем все возможные делители числа n} 
       if (n mod d=0) and prost(d) {если d - простой делитель числа n} 
          then begin kpd:=kpd+1; inc(d) end  
          else inc(d);   
     if kpd=2 then begin inc(count); maxx:=n end 
   end; 
   println(count, maxx)  
 END.

 a=[]  
 for i in range(2,37000):  
     k=True  
     for j in range(2,i//2+1):  
         if i%j==0:  
             k=False  
             break  
     if k==True:  
         a.append(i)  
 count=0  
 maximum=0  
 for i in range(105673,220784): 
     k=[]  
     n=1  
     for elem in a: #берем каждый элемент из массива простых чисел("а") 
         if i%elem==0:  
             k.append(elem)  
             n=n*elem 
             if len(k)>3: 
                 break 
         if len(k)==3:  
             if n==i:  
                 count += 1  
                 if i > maximum:  
                     maximum = i  
             break 
 print(count,maximum)