[destructor]

Сообщение от destructor

противолежащийкатет:=y2-y1;
прилежащийкатет:=x2-x1;
тангенс: = противолежащийкатет / прилежащийкатет;
угол:= ArcTan( тангенс );

чтобы его получить тут, используй котангенс