Помогите составить программу на Си. Даны координаты трех вершин треугольника (x, у), (x2, y2), (х3, у3). Найти его периметр и площадь.

Нахождение площади и периметра треугольника;

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

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.