Viết chương trình in ra màn hình chữ số hàng trăm, chục,đơn vị của 1 số có 3 chữ số.

program tinh;           
uses crt;                                        
var a,b,c,n:integer;       
begin            
clrscr;                                    
write('nhap so n :');readln(n);                                        
a := n div 100;                                                                         
b := (n mod 100) div 10;                                            
c := (n mod 10 );                                                         
writeln('chu so hang don vi la :', c);                 

writeln('chu so hang chuc la :', b);                                          

writeln('chu so hang tram la :', a );                                                            

readln;                                              

end.