найти ошибки в программе

[IceFlame1292]

Program treygolnik;
  var Ax, Ay, By, Cy, Cx, AB, AC, BC, Bx, bis,r:real;
  begin 
 writeln('введите координаты точек');
   writeln('A');
   writeln(Ax, Ay);
   writeln('B');
   writeln(Bx, By);
   writeln('C');
   writeln(Cx, Cy)
   BC:=scrt(scr(Cx-Bx)+sqr(Cy-By));
   AB:=scrt(scr(Bx-Ax)+sqr(By-Ay));
   AC:=scrt(scr(Cx-Ax)+sqr(Cy-Ay));
   bis:=(sqr(AC*AB*sqr(AC+AB)-sqr(BC))/(AC+AB);
   writeln('биссектриса= ', bis);
  end.

я написал программу!язык паскаль!пишет ошибку Division by zero!подчеркивает запись "bis" какая находится сверху writeln.не пойму в чем дело!помогите найти ошибку и еще пожалуста напишите как найти радиус вписанной окружности!просто надо найти биссектрису и радиус! я биссекутрису написал а радиус не знаю формулы.ну и может еще какие нибудь ошибки найдете!ПОМОГИТЕ ПОЖАЛУСТА !


________

Столько сообщений на форуме, а правила форума нарушаете!
Не хорошо!

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[NiCola999]

ошибка означает, что вот здесь

bis:=(sqr(AC*AB*sqr(AC+AB)-sqr(BC))/(AC+AB);

произошло деление на нуль. В знаменателе получается ноль

[IceFlame1292]

а понятно!спасибо!