Известны координаты трех вершин треугольника ABC. Найти стороны и полупериметр для этого треугольника. Вывести ½ от AB+BC+CA

program triangle;

var

 P,AB,BC,CA,x1,y1,x2,y2,x3,y3 : real;

begin

 writeln('Введите координаты точки А');

 read(x1, y1);

 writeln('Введите координаты точки B');

 read(x2, y3);  

 writeln('Введите координаты точки C');

 read(x3, y3);

 writeln(' Возможные длины сторон:')  ;

 AB:=sqrt(sqr(x2-x1)+sqr(y2-y1)) ;

 writeln('|AB|=',AB:0:2);

 BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));

 writeln('|BC|=',BC:0:2);

 CA:=sqrt(sqr(x1-x3)+sqr(y1-y3));

 writeln('|CA|=',CA:0:2);

 P:=(AB+BC+CA)/2;

 writeln('Полупериметр:',P:0:2);

end.