Tugas Algoritma Tentang Mencetak Keterangan Rupiah

konversi bilangan ke string dalam pascal

tugas ttg , menampilkan hasil berbentuk tulisan , dari inputan berupa bilangan.
program nya :

program cetak_nilai_uang;
var
uang : integer ;
begin
writeln('program konversi bilangan');
writeln('===================');
writeln;
write('nilai uang yang ingin di konversi :');readln(uang);
if uang div 100 > 0 then begin
write(uang div 100 , 'ratus');
uang := uang mod 100;
end
else if uang div 10 > 0 ) and (uang > 20) then begin
write(uang div 10, 'puluh');
uang := uang mod 10;
end
else if (uang < 20) and (uang > 10 ) then begin
write('uang mod 10 ,'belas rupiah');
uang := uang mod 10;
else write(uang ,'rupiah');
end.


contoh hasil :

Program konversi bilangan
==================
Nilai Uang 237
2 Ratus 3Puluh 7Rupiah