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