var K,v:Boolean;
begin
  k := True;
  v := True;
  case k = v of
    True : WriteLn(k, ' = ', v);
    False: WriteLn(k, ' != ', v);
  else
    WriteLn(k, ' ?? ', v);
  end;
end.