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

Дан массив A,надо вывести в массив B положительные числа из A.
В массив С выделить кратные 5 числа из А.
В и С напечатать.

язык Pascal