Viết chương trình trong pascal, nhập vào một số nguyên dương n

Viết chương trình trong pascal nhập vào một số nguyên dương n . Hãy cho biết các chữ số trong n giảm dần hay tăng dần?( sử dụng câu lệnh lặp )