Viết chương trình Free Pascal tính tổng các số tự nhiên có 3 chữ số và chia hết cho 3

Viết chương trình Free Pascal tính tổng các số tự nhiên có 3 chữ số và chia hết cho 3.