Помогите написать программу в паскале
Дан целочисленный массив. Он заполняется при запуске программы: сначала запросить число элементов (n от 1 до 40), затем - элементы – целые числа в интервале от -500 до 500.
a. количество чисел, оканчивающихся на 3;
b. найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент). Гарантируется, что первый элемент массива положительный.
c. наибольший отрицательный элемент, который делится на 3.