Пусть даны координаты вершин четырехугольника. Составьте программу, которая определяла бы,являеться ли этот четырехугольник прямоугольником.

Хоть это и не важно . Но есть ошибка при сравнении сторон. Строки 155 и 165. там модуль вектора v1 сравнивается сам с собой.

Если хтим сравнивать, Правильно должно быть: if AbsVecPlane(v1)<>AbsVecPlane(v2)

спасибо тебе