Заданы координаты трех вершин треугольника. Найти его периметр и площадь.

Program Нахождение площади и периметра треугольника; var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, P, p, S: real; Beginreadln (x1, y1, x2, y2, x3, y3) ; d1: = sqrt (sqr (x2-x1) + sqr (y2-y1)) ; d2: = sqrt (sqr (x3-x2) + sqr (y3-y2)) ; d3: = sqrt (sqr (x1-x3) + sqr (y1-y3)) ; P: = d1+d2+d3; p:=P/2; S: = sqrt (p * (p-d1) * (p-d2) * (p-d3)) ;