Program CHU_SO;

uses crt;

var n:integer;

begin

clrscr;

write(‘Nhap so n: ‘);readln(n);

writeln(‘Chu so hang don vi: ‘,n mod 10);

n:=n div 10;

writeln(‘Chu so hang chuc: ‘,n mod 10);

n:=n div 10;

writeln(‘Chu so hang tram: ‘,n mod 10);

readln