Kiểm tra từ 1 —> n có bao nhiêu số ( là những số nào ) chia hết cho 2

Kiểm tra từ 1 —> n có bao nhiêu số ( là những số nào )
a/ Chia hết cho 2 
b/ Chia hết cho 3 và 7
viết chương trình Pascal