В задаче 4 ответ второго примера в условии задачи, эталонные ответы четвёртого
и пятого тестов неверны. Это вызвано ошибкой в решении жюри - был выбран
недостаточно точный вещественный тип (real). Правильное решение может быть
получено заменой строк

type
   point = record

на

{$N+,E-}
type
   real = extended;
   point = record