var k,n:comp=32416187567;begin repeat k:=3;while n mod k*(n-k*k)>0do k:=k+2;if n32416190071end.