Из железной полосы длиной L метров нужно изготовить обруч. На соединение концов уходит D метров полосы. Разработать схему алгоритма для вычисления радиуса R обруча. Протестировать алгоритм для а) L=5.8, D=0.2, б) L=3.25, D=0.1

function r(l, d: real):real;
begin
  result:=sqrt((l-d)/pi);
end;
var l, d: real;
begin
  l:=5.8;
 d:=0.2;
  writeln('L = ', l, ' D = ', d, ' r = ', r(l, d));
  l:=3.25; d:=0.1;
  writeln('L = ', l, ' D = ', d, ' r = ', r(l, d));
end.