Сделать процедуры

ЗАДАНИЕ 1
Создать две процедуры: в первой процедуре должна участвовать локальная
переменная, определенная во второй процедуре модуля, т.е. рассмотреть
использование формальных параметров.
Ввести значения переменных Количество = 10 и переменной Цена = 20 во
второй процедуре. Произвести расчет значения ИТОГО = Количество*Цена в первой
процедуре Процедура Вычисление(…) и вывести значение ИТОГО в служебное
окно.
ЗАДАНИЕ 2
Создать следующие процедуры:
1. В первой вводятся оценки за первый семестр и рассчитывается среднее значение
(данные вводятся произвольно)
2. Во второй вводятся оценки за второй семестр и рассчитывается среднее значение
(данные вводятся произвольно)
3. В третьей процедуре выводится в служебное окно информация о среднем бале за
первый семестр, второй семестр и за весь год.