var
x1,y1,x2,y2,x3,y3,A,B,C:integer;
s,p,AB,BC,AC:real;
begin
writeln('Введите координаты вершины A');
readln(x1,y1);
writeln('Введите координаты вершины B');
readln(x2,y2);
writeln('Введите координаты вершины C');
readln(x3,y3);
writeln('Координаты вершины А(',x1,',',y1,')');
writeln('Координаты вершины B(',x2,',',y2,')');
writeln('Координаты вершины C(',x3,',',y3,')');
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
AC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
writeln('Стороны треугольника AB=',AB,' cm, BC=',BC,' cm и AC=',AC,' cm');
p:=(AB+BC+AC)/2;
writeln('Полупериметр треугольника ',p);
s:=sqrt(p*(p-AB)*(p-BC)*(p-AC));
writeln('Площадь треугольника ',s,' cm^2');
readln
end.