Помогите сделать программу. Найти сумму парных и не парных чисел кратных 11. От 1 до 11000 в Turbo pascal

кто может, напишите пожалуйста программу. Вот условие: Найти сумму парных и не парных чисел кратных 11. От 1 до 11000 в Turbo pascal