:ClLCD :Disp "x! w/ ending zeros","-------------------" :Prompt x :Disp "" :N=int (log x/log 5) :Q=0 :For(P,1,N) :Q=Q+x/(5^P) :End :Outpt(5,1,Q :Outpt(5,7,"zeros" :