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.