Помогите пожалуйста. Надо в Паскаль АВС 1и2 задача . Очень надо

Question

Помогите пожалуйста. Надо в Паскаль АВС
1и2 задача . Очень надо

---

Answer 1

Program geron;
var
  x,y,z,p:integer;
s:real;
begin
read(x,y,z);
p:=(x+y+z) div 2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(s:0:2);
end.

Comments

program geron;
var
x,y,z,p:integer;
s:real;
begin
read(x,y,z);
p:=(x+y+z)/2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(s:0:2);
end.

---

интернет адский ,нужно время чтобы залить для биссектрис ответ