Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том же порядке) — Pascal(Паскаль)

Program Case12;

Var
  Cnt: Byte;
  _Val, R: Real;

Begin
  WriteLn('Введите номер элемента(1 — радиус R, 2 — диаметр D, 3 — длина L, 4 — площадь круга S):');
  ReadLn(Cnt);
  WriteLn('Введите значение элементa: ');
  ReadLn(_Val);
  Case Cnt Of
    1:
      Begin
        R := _Val;
        WriteLn('Pадиус: ', R);
        WriteLn('Диаметр: ', 2 * R);
        WriteLn('Длина: ', 2 * pi * R);
        WriteLn('Площадь круга: ', pi * Sqr(R));
      End;
    2:
      Begin
        R := _Val / 2;
        WriteLn('Pадиус: ', R);
        WriteLn('Диаметр: ', 2 * R);
        WriteLn('Длина: ', 2 * pi * R);
        WriteLn('Площадь круга: ', pi * Sqr(R));
      End;
    3:
      Begin
        R := _Val / 2 * pi;
        WriteLn('Pадиус: ', R);
        WriteLn('Диаметр: ', 2 * R);
        WriteLn('Длина: ', 2 * pi * R);
        WriteLn('Площадь круга: ', pi * Sqr(R));
      End;
    4:
      Begin
        R := Sqrt(_Val / pi);
        WriteLn('Pадиус: ', R);
        WriteLn('Диаметр: ', 2 * R);
        WriteLn('Длина: ', 2 * pi * R);
        WriteLn('Площадь круга: ', pi * Sqr(R));
      End;
  End;

End.