“Hangi 4 basamaklı sayının rakamları kendi kuvvetlerine gönderilip toplanırsa yine aynı sayıyı verir.” sorusunun cevabını ekrana yazdıran programın algoritması

1-BAŞLA
2-i=1000;
3-binler=Tam(i/1000);
4-yüzler=Tam ((i-binler*1000)/100);
5-onlar=Tam((i-binler*1000-yüzler*100)/10)
6-birler= i-binler*1000-yüzler*100-onlar*10
7- birler,yüzler,onlar,birler değerini oku
8-Eğer i=[kuvvet(birler,birler)+kuvvet(onlar,onlar)+kuvvet(yüzler,yüzler)+kuvvet(binler,binler)];
ise Yaz[i];
9-i=i+1
10-Eğer i<10000 ise 3.adıma git
11-DUR