segment(B,C);
D:=perpendiculaire(A,droite(B,C));
P:=perpendiculaire(A,D);