Menentukan_Nilai_Pecahan_Uang
{I.S.: User memasukkan sejumlah uang}
{F.S.: Menamplikan Pecahan Uang dalam kelipatan 25 }

Kamus   :
 	    JmlUang, Pecah1, Pecah2, Pecah3, Pecah4, Pecah5, SisaRibuan, SisaRatusan: Integer
            Pecah1 : 1000
	    Pecah2 : 500
	    Pecah3 : 100
	    Pecah4 : 50
	    Pecah5 : 25


Algoritma :
            Input(JmlUang)
	    Pecah1 <- JmlUang div 1000
	    SisaPecah1 <- JmlUang mod 1000
	    Pecah2 <- SisaPecah1 div 500
	    SisaPecah2 <- SisaPecah1 mod 500
	    Pecah3 <- SisaPecah2 div 100
	    SisaPecah3 <- SisaPecah2 mod 100
	    Pecah4 <- SisaPecah3 div 50
	    Pecah5 <- SisaPecah3 mod 50
            Output()