Заданы координаты трех Вершин треугольника (x1, y1) , (х 2, y2) , (x3, y3). Найти его периметр…

{ Треугольник задан координатами вершин (x1; y1) , (x2; y2) , (x3; y3). Найти площадь треугольника (используя формулу Герона) }uses crt; var x1,x2,x3,y1,y2,y3,a,b,c,s,p: real; begin clrscr; adln (x1); write ('y1='); r write ('x1='); reeadln (y1); write ('x2='); readln (x2); '); readln (x3); write ('y3 write ('y2='); readln (y2); write ('x3='); readln (y3); a: =sqrt (sqr (x1-x2)+sqr (y1-y2)+sqr (y1-y3); p: =(a+b+c) /2; s: b: =sqrt (sqr (x2-x3)+sqr (y2-y3); c: =sqrt (sqr (x3-x1=sqrt (p*(p-a)*(p-b)*(p-c); write ('s=',s); readln; Уудаччии