составить программу вычисления среднего арифметичского и среднего геометрического n чисел(n<=10)

сама задача простенькая, но с этими модулями и подпрограммами ничего не выходит. совсем. надо 2 проги с модулем и подпрограммой... голова лопнит ща от этого паскаля