Заданы координаты трех вершин треугольника - (x1,y1); (x2,y2); (x3,y3). Найдите его периметр и площадь.!!!!!!!!!

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);