Program Нахождение площади и периметра треугольника;
var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, P,p, S: real;
Begin
readln (x1, y1, x2, y2, x3, y3);
