program factor; var a,x,y,n:integer; cnt5,cnt2:integer; begin readln(n); while n>0 do begin readln(x); cnt5:=0; cnt2:=0; a:=1; while a