N:=(stdin next:2)asNumber.[N:=(P:=N printNl)\\2*(N*5/2+1)+(N/2).P>1]whileTrue