program ct;
uses crt;
var n, tram, chuc, donvi: integer
begin
clrscr;
write('Nhap n= '); readln(n);
tram:=0;
chuc:=0;
tram:=n div 100;
n:=n mod 100;
chuc:=n div 10;
donvi:=n mod 100;
writeln('Hang tram la ',tram);
writeln('Hang chuc la ',chuc);
write('Hang don vi la ',donvi);
readln
end.