Помогите зделать в паскале 2 задание даю 15

Question

Помогите зделать в паскале 2 задание даю 15

---

Answer 1

Var
  a,b,c,p,r:real;

begin
  Read(a,b,c);
  p:=(a+b+c)/2;
  r:=Sqrt((p-a)*(p-b)*(p-c)/p);
  Writeln(r)
end.