var
  r, d, l, s: real;

begin
  WriteLn('1 — радиус (R)', newLine, '2 — диаметр (D)', newLine, '3 — длина (L)', newLine, '4 — площадь круга (S)');
  var menu := ReadLnInteger('Выберите пункт меню:');
  case menu of
    1:
      begin
        r := ReadLnReal('Введите радиус (R):');
        d := 2 * r;
        l := 2 * Pi * r;
        s := Pi * Sqr(r);
      end;
    2:
      begin
        d := ReadLnReal('Введите диаметр (D):');
        r := d / 2;
        l := Pi * d;
        s := Pi * (Sqr(d) / 4);
      end;
    3:
      begin
        l := ReadLnReal('Введите длину (L):');
        r := l / (2 * Pi);
        d := l / Pi;
        s := Pi * Sqr(r);
      end;
    4:
      begin
        s := ReadLnReal('Введите площадь круга (S):');
        r := Sqrt(s / Pi);
        d := 2 * r;
        l := Pi * d;
      end;
  else
    begin
      WriteLn('Упс...ошибочка :(', newLine, 'Программа завершит свою работу через 5 секунд...');
      Sleep(5000);
      exit;
    end;
  end;
  WriteLn(newLine, 'Результат:', newLine, 'Радиус (R) = ', r:8:5, newLine, 'Диаметр (D) = ', d:8:5, newLine, 'Длина (L) = ', l:8:5, newLine, 'Площадь круга (S) = ', s:8:5);
end.