Крайне важно до завтрашнего дня, скиньте по почте: trishkura2001@inbox.ru

Есть 4 задачи которые нужно решить, это вопрос жизни и смерти! Задание 1.
Создать program massiv;
Uses Crt;
const
n = 5;
var
i: integer;
a: array[1..n] of real;
sr, sum: real;
Требуется вывести на экран среднее и сумму введенных данных (введённых с помощью клавиатуры и/или определенных с помощью функции ‘random’.)
1)Реализовать процедуру ввода с клавиатуры
procedure vvod ( var B: array of real; n: integer);
2)Реализовать процедуру случайного определения элементов массива
procedure vvod_vand ( var A: array of real; n: integer);
3)Использовать функцию вычисления среднего значения введенных элементов массива.
function sred (var D: array of real; n: integer ) : real;
4)Вычислить среднее значение с использованием как первой, так и второй процедуры ввода в основной программе.
5)Вывести введенные элементы исходного массива и среднее значение в текстовый файл.
Задание 2.
Первое любимое число преподавателя математики – 1, а второе – 5. Каждое следующее любимое число получается как сумма удвоенного предыдущего и предпредыдущего чисел. Таким образом, третье любимое число – 11, а четвертое – 27. Найти сумму любимых чисел среди первой тысячи. (Использовать рекурсию.)
Задание 3.
Программно создать текстовый файл и ввести в него несколько номеров сотовых телефонов (из количество задать с клавиатуры, не менее трех), используя в качестве разделителей знаки (скобки и дефис), Например, так:
8(926)-111-11-11
8(916)-222-22-22
8(926)-333-33-33
Требуется:
1.Вывести на экран содержимое текстового файла с приведенными телефонами.
2.Удалить программно скобки и дефисы для номеров телефонов. Например, так:
89261111111
89162222222
89263333333
3.Вывести обновленное содержимое файла на экран и показать файл с измененными телефонами.
Задание 4. (Графика). Перемещение геометрического примитива по периметру экрана, по часовой стрелке (до тех пор, пока не будет нажата клавиша).
ПОМОГИТЕ КТО ЧЕМ СМОЖЕТ