Viết chương trình pascal.nhập vào số N nguyên, N<1000. Đưa ra hàng trăm hàng chục hàng đơn vị

Program NhatNgu;
Uses crt;
Var St: String;
Begin
        Clrscr;
        Write('Nhap so: '); Readln(St);
        Writeln('Hang tram: ',St[length(St)-2]);
        Writeln('Hang chuc: ',St[length(St)-1]);
        Write('Hang don vi: ',St[length(St)]);
        Readln
End.

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.