Напишите на паскале. Задание: Написать программу, определяющую, можно ли треугольник со сторонами a, b, c поместить внутри круга радиусом R

Var a,b,c,r,s,p: real;
begin
  write(длины сторон треугольника a,b,c через пробел: );
  readln(a,b,c);
  write(радиус круга r: );  readln(r);
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  if r>=(a*b*c)/(4*s) then writeln(можно поместить)
  else writeln(нельзя поместить);
end.

длины сторон треугольника a,b,c через пробел: 3 4 5
радиус круга r: 2.49
нельзя поместить

длины сторон треугольника a,b,c через пробел: 3 4 5
радиус круга r: 2.5
можно поместить