УМОЛЯЮ! Паскаль!! Функции и процедуры !

[tanyazaytseva]

Я, милая первокурсница, Умоляю Вас помочь с решением двух задач в паскале с помощью процедур и функция, разобраться не могу !( А завтра уже последний день, когда можно сдать эту лабу, прошу, прошу, прошу!!!

1.
Составить процедуры для вычисления и вывода на печать вычисляемых векторов:
Исходные вектора FA
Вычисляемые вектора VR
Элементы вычисляемых векторов по отношению к элементам исходных - Косинус элемента
A=(2.1;-3.5;0)
F=(3.1;-2;0)

2.Даны вектора R(8) и А(10). Вычислить среднее геометрическое элементов вектора А и вектора В. Написать программу, оформив ввод вектора в виде процедуры, а нахождение среднего геометрического, оформить в виде функции.