ПОМОГИТЕ НАПИСАТЬ ПРОГРАММЫ НА ЯЗЫКЕ PASCAL. ПОЖАЛУЙСТА!!!

1) Дан массив из n чисел. Определить количество чисел, кратных 3 и некратных 5.
2) Дан массив из n чисел. Все отрицательные числа увеличить на 0.5, а все неотрицательные на 0.1.