Hãy mô tả thuật toán và viết chương trình Pascal tính tổng các số tự nhiên chia hết cho 3 từ 1 đến 100

Hãy mô tả thuật toán và viết chương trình Pascal tính tổng các số tự nhiên chia hết cho 3 từ 1 đến 1000
(Gợi ý: sử dụng lồng vòng lặp và câu lệnh if)