Управление данными/Пакеты прикладных программ

1. Исходные данные
Файл input.dat вещественного типа (real) с четным количеством вещественных чисел. Каждая пара таких чисел – это координата точки на декартовой плоскости.

2. Задание
Найти точку А1, которая лежит ближе всего к центру координат. Найти точку В1, которая лежит дальше всех от центра координат. Точки, лежащие на осях координат, не учитывать.
Найти аналогичные точки для остальных четвертей координатной плоскости.
Определить расстояние между точкой пересечения прямых A1B1 и A4B4 и точной пересечения прямых A2B2 и A3B3. Записать в текстовый файл output.txt результаты работы программы в следующем порядке: координаты точек A1 и B1, A2 и B2, A3 и B3, A4 и B4; координаты точек пересечения прямых A1B1 и A4B4, координаты точек пересечения прямых A2B2 и A3B3, расстояние между этими точками.
Например:
(4, 2) (6, 6)
(-4, 3) (-9, 6)
(-1, -3) (-4, -4)
(4, -2) (5, -3)
2.67 0,67
3.50 -1.50
1.18

3. Требования
Исходный файл находится в текущем каталоге.
Для решения задачи написать три программы. В каждой программе можно использовать только один тип цикла.
Выходной файл создать в текущем каталоге.