Программа Pascal.

Даны координаты 3 точек x1, x2, x3, y1, y2, y3, которые представляют собой вершины

треугольника.

Вычислить

а) Длины сторон треугольника

б) Площадь треугольника

Var

X1, Y1, X2, Y2, X3, Y3:real;

A, B, C:real;

Begin

Write ('X1 = ') ; ReadLn (X1) ;

Write ('Y1 = ') ; ReadLn (Y1) ;

Write ('X2 = ') ; ReadLn (X2) ;

Write ('Y2 = ') ; ReadLn (Y2) ;

Write ('X3 = ') ; ReadLn (X3) ;

Write ('Y3 = ') ; ReadLn (Y3) ;

A:=sqrt (sqr (X2-X1) + sqr (Y2-Y1)) ;

B:=sqrt (sqr (X2-X3) + sqr (Y2-Y3)) ;

C:=sqrt (sqr (X3-X1) + sqr (Y3-Y1)) ;

if (A
Begin

WriteLn ('Длины сторон равны:') ;

WriteLn ('A = ', A) ;

WriteLn ('B = ', B) ;

WriteLn ('C = ', C) ;

X1: = (A+B+C) / 2;

WriteLn ('Площадь треугольника равна ', sqrt (X1 * (X1-A) * (X1-B) * (X1-C)))

End

else WriteLn ('Треугольник не существует')

End.