program DbmVatt;
{$mode delphi}{$apptype console}
uses SysUtils, Math;
var dbm, mw, w, u: Double;
begin
  Write('Мощность (dBm): '); ReadLn(dbm);
  mw := Power(10, dbm / 10);
  w := mw / 1000;
  u := Sqrt(w * 50);
  WriteLn(Format('%.2f dBm = %.4f мВт = %.6f Вт', [dbm, mw, w]));
  WriteLn(Format('Напряжение на 50 Ом = %.4f В', [u]));
  ReadLn;
end.