{* Формула Герона *}

Unit BEGIN_15;
Interface
Implementation
Begin
 writeln('Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3). Найти площадь треугольника (используя формулу Герона). ');
End.

Program Begin_15;

Uses Begin_15.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  x1 : real;
  x2 : real;
  x3 : real;
  y1 : real;
  y2 : real;
  y3 : real;
  a  : real;
  b  : real;
  c  : real;
  s  : real;
  p  : real;
Begin
  clrscr; {* Очистка экрана *}
  write('x1=');
  readln(x1);
  write('y1=');
  readln(y1);
  write('x2=');
  readln(x2);
  write('y2=');
  readln(y2);
  write('x3=');
  readln(x3);
  write('y3=');
  readln(y3);
  a := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  b := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
  c := sqrt(sqr(x3 - x1) + sqr(y1 - y3));
  p := (a + b + c) / 2;
  s := sqrt(p * (p - a) * (p - b) * (p - c));
  write('s=', s : 4 : 2);
  readln; {* Приостановка программы. Ожидание Enter *}
End.