Срочно !!!заданы координаты трех вершин треугольника (х1;у1),(х2;у2);(х3;у3) найдите его периметр и площадьрисунок(блок схема)

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