Пожалуйста решение в Turbo/Free pascal

1) Написать программу. Массив из 10 чисел заполнить с клавиатуры. Определить сколько двузначных чисел начинаются на нечётную цифру.

2) Написать программу. Массив из 20 чисел заполнить случайными числами [-100, 100]. Найти величину максимального отклонения (модуля разности) между любыми двумя элементами массива.

3) Написать программу. Массив из 10 чисел заполнить с клавиатуры. Определить сумму чисел, начинающихся на цифру 5.

Помогите пожалуйста, к утру нужны программы.