Program Nilai Uang

uses wincrt;
var a,b,c,d:integer;
begin
write ('masukkan nilai uang anda: ');readln (a);
b:= a div 100*100;
writeln ('ratusan= ',b);
c:= a mod 100- a mod 10;
writeln ('puluhan= ',c);
d:= a mod 10;
writeln ('satuan= ',d);
end.