// Задача № 6
uses
  system;

begin
  Console.Write('Введите длину окружности: ');
  var l := Convert.ToSingle(Console.ReadLine());
  var r := l / (2 * Pi);
  var s := Pi * sqr(r);
  Console.WriteLine('Радиус окружности: R={0:####0.00}. Площадь окружности: S={1:####0.00}.', r, s);
end.

Задача № 7
uses
  system;

begin
  Console.Write('Введите площадь круга: ');
  var s := Convert.ToSingle(Console.ReadLine());
  var d := 2*Sqrt(S*Pi);
  var l := Pi * d;
  Console.WriteLine('Диаметр окружности: D={0:####0.00}. Длина окружности: S={1:####0.00}.', d, l);
end.