Progam Pascal Pecahan Mata Uang

program Pecahan_Mata_Uang;
uses wincrt;
var uang,jumlah:longint;
ulang:char;


begin
repeat
writeln ('Masukkan Uang yang Dipunyai: '); readln(uang);
writeln ('Uang yang Dipunyai: Rp. ',uang,',-');
writeln ('Pecahan Uang yang Dipunyai: ');
if uang>100000 then

begin
jumlah:=uang div 100000;
writeln (jumlah,' Lembar Seratus Ribuan');
uang:=uang mod 100000;
end;
begin
jumlah:=uang div 50000;
writeln (jumlah,' Lembar Lima Puluh Ribuan');
uang:=uang mod 50000;
end;
begin
jumlah:=uang div 20000;
writeln (jumlah,' Lembar Dua puluh Ribuan');
uang:=uang mod 20000;
end;
begin
jumlah:=uang div 10000;
writeln (jumlah,' Lembar Sepuluh Ribuan');
uang:=uang mod 10000;
end;
begin
jumlah:=uang div 5000;
writeln (jumlah,' Lembar Lima Ribuan');
uang:=uang mod 5000;
end;
begin
jumlah:=uang div 2000;
writeln (jumlah,' Lembar Dua Ribuan');
uang:=uang mod 2000;
end;
begin
jumlah:=uang div 1000;
writeln (jumlah,' Lembar/Keping Seribuan');
uang:=uang mod 1000;
end;
begin
jumlah:=uang div 500;
writeln (jumlah,' Keping Lima Ratusan');
uang:=uang mod 500;
end;
begin
jumlah:=uang div 200;
writeln (jumlah,' Keping Dua Ratusan');
uang:=uang mod 200;
end;
begin
jumlah:=uang div 100;
writeln (jumlah,' Keping Seratusan');
uang:=uang mod 100;
end;
begin
jumlah:=uang mod 100;
writeln ('Sisa Rp. ',jumlah,',-');
end;
begin
writeln ('Mau Mengulangi? [Y/T]'); ulang:=upcase(readkey);
clrscr
end;
until ulang <> 'Y';
end.