{* Задача 240 *}

Unit ZADACH240;
Interface
Implementation
Begin
 writeln('
Даны действительные числа x1, x2, x3, y1, y2, y3. Принадлежит
ли начало координат треугольнику с вершинами (x1, y1), (x2, y2), (x3, y3)?
');
End.

Program abc;

Uses zadach240.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a  : real;
  b  : real;
  c  : real;
  p  : real;
  x1 : real;
  x2 : real;
  x3 : real;
  y1 : real;
  y2 : real;
  y3 : real;
Function S(x1, x2, x3, y1, y2, y3 : real) : real;
Begin
  a := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  b := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
  p := (a + b + c) / 2;
  S := sqrt(p * (p - a) * (p - b) * (p - c));
End;
Begin
  Writeln('введите координаты треугольника');
  writeln('точка A');
  readln(x1, y1);
  writeln('точка B');
  readln(x2, y2);
  writeln('точка C');
  readln(x3, y3);
  If (S(x1, x3, 0, y1, y3, 0)) + (S(x2, x3, 0, y2, y3, 0)) + (S(x1, x2, 0, y1, y2, 0)) > (S(x1, x2, x3, y1, y2, y3)) Then
    writeln ('пересечение осей лежит вне треугольника')
  Else writeln ('пересечение осей лежит в треугольнике');
End.