Developing.ru

На плоскости задано множество точек. Определить все тройки точек, которые являются вершинами прямоугольного треугольника
язык free pascal
очень нужна помощь в написании кода

Перебор точек, нахождение углов между векторами, образованными этими тремя точками. Если один из углов прямой - то вывести на экран координаты и продолжить.
В качестве оптимизации можно просто считать скалярное произведение, заместо нахождения точных углов.

Можно еще по теореме Пифагора проверить соотношение длин.