Przypuszczam że potęgowanie zabiera ci dużo czasu (a nie jest potrzebne do rozbicia liczby na cyfry), wystrzegaj się też GOTO, bo może znacznie namieszać, a na chwilę obecną nie ma konieczności korzystania z niego niezależnie od tego co robisz. W zasadzie jest już mocno przestarzałe, i nie zdziw się jak za niedługo kompilatory przestaną go obsługiwać.

Możesz u siebie odpalić testy dla liczb z przedziału 1 - 80 - zobaczysz gdzie jest błąd .