var a:integer; 
begin 
write(' nhap so a= '); readln(a); 
writeln(' chu so hang don vi la: ' , a mod 10 ); 
writeln(' chu so hang chuc la: ' , (a mod 100) - (a mod 10) ); 
writeln(' chu so hang tram la: ' , (a mod 1000) - (a mod 100) ); 
writeln('chu so hang nghin la: ', (a mod 10000)-(a mod 1000));
readln 
end.
*chả biết đúng ko nữa*