var f : text;
    number : integer;
    j : integer;
    s : string;
    P, U, I : real;


procedure Find;
var x : integer;
    st : string;
    z : integer;
    n : real;
    er : integer;
begin
  x := pos('=', s);
  st := '';
  inc(x);
  for z := x to Length(s) do begin
    if (s[z] in ['0'..'9', '.']) then st := st + s[z]
    else break;
  end;
  val(st, n, er);
  if (s[z] in ['m', 'k', 'M']) then begin
    case s[z] of
      'm' : n := n/1000;
      'k' : n := n*1000;
      'M' : n := n*1000000;
    end;
    Inc(z);
  end;

  case s[z] of
    'W' : P := n;
    'V' : U := n;
    'A' : I := n;
  end;
  Delete(s, 1, x);
end;

begin
  assign(f, 'ai.in');
  reset(f);

  ReadLn(f, number);

  for j:= 1 to number do begin
    P := 0;
    U := 0;
    I := 0;
    ReadLn(f, s);
    Find;
    Find;
    WriteLn('Задача #', j);
    if P=0 then begin
      P := I*U;
      Write('P=', P:0:2, 'W');
    end
    else
    if I=0 then begin
      I := P/U;
      Write('I=', I:0:2, 'A');
    end
    else
    if U=0 then begin
      U := P/I;
      Write('U=', U:0:2, 'V');
    end;
    WriteLn;
    if j<number then begin
      WriteLn;
    end;

  end;

  close(f);
end.