Exercices sur le produit scalaire

PA=Pt[1,-2];PB=Pt[4,1];PC=Pt[2,-3];
ABC=Triangle[PA,PB,PC];Print["Exercice 1"];
Resoudre[ABC]

PA=Pt[3,2];PB=Pt[1,-1];PC=Pt[-1,3];
ABC=Triangle[PA,PB,PC];Print["Exercice 2"];
Resoudre[ABC]