---

program TriangleCalc;

var
  x1, y1, x2, y2, x3, y3: real;
  a, b, c: real;
  p, s: real;

begin
  writeln('Введите координаты трех точек:');
  
  write('x1 y1: '); 
  readln(x1, y1);
  
  write('x2 y2: '); 
  readln(x2, y2);
  
  write('x3 y3: '); 
  readln(x3, y3);

  { 1. Находим длины отрезков (сторон) }
  a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));

  writeln;
  writeln('--- Результаты ---');
  writeln('Длины отрезков:');
  writeln('a (между 1 и 2) = ', a:0:4);
  writeln('b (между 2 и 3) = ', b:0:4);
  writeln('c (между 3 и 1) = ', c:0:4);

  { 2. Выясняем, образуют ли они треугольник }
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    writeln('Вывод: Точки образуют треугольник.');
    
    { 3. Находим площадь по формуле Герона }
    p := (a + b + c) / 2.0;
    s := sqrt(p * (p - a) * (p - b) * (p - c));
    
    writeln('Площадь треугольника: S = ', s:0:4);
  end
  else
  begin
    writeln('Вывод: Точки НЕ образуют треугольник (лежат на одной прямой).');
  end;
  
  { Задержка экрана для сред разработки вроде Free Pascal / Turbo Pascal }
  writeln('Нажмите Enter для выхода...');
  readln;
end.