Помогите пожалуйста написать эту программу. Буду очень благодарен) Pascal*

Помогите пожалуйста написать эту программу. Буду очень благодарен) Pascal*

1. Дан массив A,надо вывести в массив B положительные числа из A.
В массив С выделить кратные 5 числа из А.
В и С напечатать.
2.найдите среднею арифметическую min и max элементов массива