Помогите пож надо придумать программу для нахождения площади любого треугольника

Если у нас есть координаты этих вершин на плоскости вида (x; y), то A(x1,y1) B(x2,y2) C(x3,y3) program q; var x1,x2,y1,y2,x3,y3:integer; ab,ac,alp,bet,alfa,s:real; begin write('введите координаты точки A: '); read(x1); readln(y1); write('введите координаты точки B: '); read(x2); readln(y2); write('введите координаты точки C: '); read(x3); readln(y3); ab:=sqrt(sqr(x2-x1)+sqr(y2-y1)); ac:=sqrt(sqr(x3-x1)+sqr(y3-y1)); alp:=arctan((y2-y1)/(x2-x1)); bet:=arctan((y3-y1)/(x3-x1)); alfa:=bet*2-alp; s:=sin(alfa)*(ab*ac)/2; writeln('площадь треугольника=',s); readln end.