Найти среднее арифметическое целых чисел в типизированном файле (file of integer), разница наибольшей и наименьшей цифр которых меньше 5. Если таких чисел нет, то результат- ноль. функция принимает в качестве параметра имя файла Name FUNCTION P(NAME:STRING):DOUBLE;