Do not use "n/3" or "n div 3" or "input div 3" or "input/3".
Do not use any division.
while input n, n:=n*3 ;
and then you won't have to divide at 3 every input;
Sorry for bad english.If any questions please ask.

thank you

thanks