Помогите решить задачи в PascalABC

1)заполнить массив (не рондомный) А (10) следующим образом: элементы, стоящие на четных местах равны 0, а на четных - 1.
2)дан массив а (20). Определить количество элементов массива, кратных 3.
3)Дан массив а (20). Вывести на экран те элементы массива, которые при делении на 7 дают в остатке 2 или 3.
4)дан массив а (20). Вывести на экран элементы массива, имеющие четные порядковые номера.
5)Дан массив а (20). Определить сумму всех элементов массива, больших 7.
6)Дан массив а (10). Найти сумму всех отрицательных элементов массива.