program RezonansLc;
{$mode delphi}{$apptype console}
uses SysUtils, Math;
var L, C, f, rho: Double;
begin
  Write('L (мкГн): '); ReadLn(L);
  Write('C (пФ): '); ReadLn(C);
  L := L * 1e-6; C := C * 1e-12;
  f := 1 / (2 * Pi * Sqrt(L * C));
  rho := Sqrt(L / C);
  WriteLn(Format('Резонанс f0 = %.4f МГц', [f / 1e6]));
  WriteLn(Format('Волновое сопротивление = %.1f Ом', [rho]));
  ReadLn;
end.
