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

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.