Составить алгоритм и написать решение на паскале: три точки заданы своими координатами. найти длины сторон треугольника и его площадь.

Program n1;
var: x1, y1, x2, y2, x3, y3, S, p, a, b, c: real;
begin
readln(x1,x2,x3,y1,y2,y3);
a=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
p=0.5*(a+b+c);
S=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
writeln(a,' ',b,' ',c);
end.