Сообщение на тему плей маркет

Если у нас есть координаты этих вершин на плоскости вида (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.

Program happynewyear; uses graphabc; begin setwindowsize(600,400);   line(250,100, 300,50); lineto(350,100);   lineto(250,100); floodfill(300,70, clgreen); line(220,200, 300,100); lineto(380,200); lineto(220,200); floodfill(300,150, clgreen); line(200,300, 300,200);   lineto(400,300);   lineto(200,300); floodfill(300,250, clgreen); rectangle(290, 300,310, 320); floodfill(300,305, clbrown);   line(0, 300, 100, 350); lineto(200, 320); lineto(400, 320); lineto(600, 370); lineto(600,400); lineto(0,400); lineto(0,300); end.