Làm thế nào để tách lấy chữ số hàng trăm trong dãy số

Làm thế nào để tách lấy chữ số hàng trăm trong dãy số. Viết câu lệnh Pascal tách lấy chữ số hàng triệu và hàng trăm trong dãy số sau:
2450000 và 21564000