Из железной полосы длиной L метров нужно изготовить обруч. На соединение концов уходит D метров полосы. Разработать схему алгоритма для вычисления радиуса R обруча. если не сложно то в паскале.дам 50 поинтов

1. Найдем длину окружности обруча: C=L-D
2. Из формулы длины окружности C=2πR найдем радиус: R=C/(2π)
R=(L-D)/(2π) - это формулу и надо запрограммировать.




begin
  var (L,D):=ReadReal2('Введите длину полосы L и припуск на соединение D:');
  Writeln('Радиус обруча будет равен ',(L-D)/(2*Pi):0:3)
end.


Введите длину полосы L и припуск на соединение D: 6 0.7
Радиус обруча будет равен 0.844