Заданы координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3).

Var
nbsp;x1,y1,x2,y2,x3,y3:Real;
nbsp;a,b,c,p,S:Real;
nbsp;Begin
nbsp;WriteLn(Введите координаты первой вершины);
nbsp;RealLn(x1,y1);
nbsp;WriteLn(Введите координаты 2-ой верхушки);
nbsp;RealLn(x2,y2);
nbsp;WriteLn(Введите координаты третьей верхушки);
nbsp;RealLn(x3,y3);
nbsp;a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
nbsp;b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
nbsp;c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
nbsp;p:=(a + b + c)/2;
nbsp;S = sqrt(p*(p - a)*(p - b)*(p - c));
nbsp;WriteLn(Площадь: ,S);
nbsp;WriteLn(Периметр:a + b + c);
nbsp;ReadLn;
nbsp;End.