дано 18 чисел типа real.
найти среднее арифметическое всех додатнии чисел если 18-е число больше единицы.
иначе напечатать значение 18-ого числа.
Входные данные для программы считать из текстового файла IN.TXT (формат произвольный)
Полученный результат записать в файл OUT.TXT и одновременно вывести на экран в формате
задан: <значение входных данных>
результат: <значение результатов>