* Dùng xâu
uses crt;
var n:longint; s:string;
begin
clrscr;
write('Nhap mot so co 3 chu so: ');readln(n);
str(n,s);
writeln('Chu so hang tram: ',s[1]);
writeln('Chu so hang chuc: ',s[2]);
writeln('Chu so hang don vi: ',s[3]);
readln
end.
* Như đề bài dùng div mod:
uses crt;
var n,t:longint;
begin
clrscr;
write('Nhap mot so co 3 chu so: ');readln(n);
t:=100;
writeln('Chu so hang tram: ',n div 100);
n:=n-((n div 100)*100);
writeln('Chu so hang chuc: ',n div 10);
n:=n-((n div 10)*10);
writeln('Chu so hang don vi: ',n);
readln
end.