Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số có ba chữ số.

uses crt;
var n:longint;
begin
clrscr;
    readln(n);
    writeln(‘Hang tram: ‘,n div 100);
    n:=n mod 100; 
    writeln(‘Hang chuc: ‘,n div 10);
    writeln(‘Hang don vi: ‘,n mod 10);
readln;
end.