Из железной полосы длиной 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.